>>> 
>>> 
>>> 
>>> 
>>> 
>>> 
>>> 
>>> 
>>> 
>>>>>2>>>>>>>>>> 
2=2>2>2>2>2>2>2>2>2>2>2>2>2>> 
>>> >>>>>>>>>>>> 
2222222222222 2222222 


SSSSssssssssecs 


noe AE 
rs WI 
BPD Wow 
ao Mh 
ID Wee 
et woe 
aad we 
GP Vow 
as ab LF 
BF Oe Woes 
is at 
Bed oe at dod 


EPPA I 
VVVVYVYVYVOYUYUYUYUUYUUUY 
CP I 


¢ 11 


| **F ILE **1D**CONVESTLD 


eaacaaaaaaad 
S0060000006 
2a 2° 
aa ee 
aa +4 
aa +4 
ca aa 
ca aa 
2S00800000000000 
S0000000000050 
44 
ad 
a4 
ad 
a4 
a4 
a4 
a4 
ee 
a ee ee 
oe 
= 
od 
= 


ct eet eet oe en oe ee 


=< 

= 

= 

= 

ww MWwWIwnwn 

own ANMNM 

nw nw uWwwn 

nw nw nw 

nw nw vn 

nn ww nw 

nn nn mu 

nn nn nM 
NANNM nn 
ANNM mm 

aa 

we 

o_o bk tk 

= aor 

ae i 

= oo 

oi Leathe 

= tee 


Oe eed Oe ad Sad Cad ea oe 
eet eed vet ved ved ved veg veg Oa ves vee 


>>>>>>>>>> 
>>>>555555> 


SE555555252522 
zs 
MTTTiiittti tte 

88888ssss3 __ 
e s 
s 


8888888888 


wow vu 
baer vv 
0 vu 
pure} vv 
hates vv 
pater vv 
Ow vv 
PLVEVEYEYYLY 


WMYVYVYYVUEYVUUUY 


LLLLLLLLLLE 
LLLLLLLLLL 


RR ee Sige LS Sar 


BNA WN $C OODNOU EW “OOONOUS WN 


POPIPONOPOPORY 


for 
oOo 


" 
VAX=11 CONVERT 13-Se0-1984 #3342500 


STITLE ‘VAX=11 CONVERT’ 
MODULE CONVSFSTLD ( 4 bl aaa 
PP LEVEL= 

= 


BEGIN 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


tt tt kt ot ss ss Ss 2  s  UIDQOOOO 
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AX-11 
CONV.S 


14 ie hal ie urche ss gt a UNDER A LICENSE AND MAY BE ee AND sorte 

15 '* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH bicee SE “ se THE 
' 1 '* INCLUSION OF He ore ey ponene NOTICE. THIS SOF Tw WARE OR OTHER 
001 'e COPIES THEREOF MA wa Af BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
0018 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
B05 6s TRANSFERRED. 

'e 

8953 :* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
00 ; :* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
O05i = CORPORATION. 
on5e i® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
0037 :: SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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; 1 9 } ‘ee 

. ' 

; : § } } Facility: VAX=-11 CONVERT 

3 5 4 1! Abstract: This module contains the high level calls for the fast load 
3 $ > 3 process along with the declaratons for the data specifically 
3 , $ : : used by fast load 

3 9 8 1! Contents: 

; 40 039 1! FAST_LOAD 

3 (41 01 INI T“FAST_LOAD 

3; 6 41 1! LOAD_PRIMARY 

ci, rk 1! LOAD_ SECONDARY 

; 44 045 1! LOAD_DATA_BUCKET 

3; 645 044 1! LOAD" INDEX BUCKET 

: 6 45 1! F INISH_ INDEX 

; 6 6 1/ BACKUP — INDEX 

; 6448 0047 1! 

; 49 00468 1 ! Environment: 

; 9 0049 1! 

3 1 0050 1! VAX/VMS Operating System 

; 2 0051 1! 

; & 0088 1 

O08 1! 

; 0055 1 ! Author: Keith B Thompson Creation date: August-1980 
> ae B238 1! 

; 3 0057 1! 

;s 59 0058 1 ! Modified by: 

; 60 0059 1! 

— 0060 1! v03-013 RASO305 Ron Schaefer 7-May-1984 
; o¢ 0061 1! Fix check for maximum index level so that we report 
~~. & 0062 1! an error rather than get an access violation if the 
>; 64 0065 1! index level exceeds 31. 

;. @& 0064 1! 

; © 0065 1! V03-012 JwT0177 Jim Teague 17-Apr-1984 
; «6467 0066 1! CONVERT always tried to load a sidr bucket, even if 
; 0067 1! all records in the file had null keys for the 

: :] 068 1! index, thereby coreups np the file. Correct this 

3 0 5 34 ,? error by making sure at least one non-null key is 
Bees 070 1! encountered for an index before allocating and 

3 g 4 : Loading a SIDR bucket. 

oo Gor8 1! V03-011 JwT0143 Jim Teague 25-Nov-1983 
; 074 1! CONVERT used to ot nety add records until the fill 
a O75 1! factor was exceeded. Now, check to see if adding 
es 076 1! a record will Oring us closer to the fill factor. 

; we 0077 1! If we're closer before the addition (even though 

; 0078 1! we ney be short of the fill factor), then don’ 

; 30 0080 ! } add the record. 

5 B: 081 1! v03-010 KBT0476 Keith B. Thompson 29-Jan-1983 
3 + Ons ! Add support for the ADD_KEY function 

; BS 084 1: v03-009 KBT0459 Keith B. Thompson 10-Jan-1983 
3 6 tH ' Fix a bug when loading p3 sidrs with no dups 
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| 12780871382 $3:42:38 CONV. SRCIJCONVFSTLD.832;1 . (2) 
5 7 i! v03-008 KBT0404 Keith 8. Thompson 19-Nov-1982 

: ! : Fix some of the sidr code 

; 91 ii v03-007 KBT0382 Keith 8B. Thompson 26-0 t-1982 

; 35 91 : Add prologue 3 sidr support 

: 9 3 1 i v03-006 KBT0375 Keith 8. Thompson 20-0c t-1982 

3; Be : } Check for keys out of order from split_data 

: 3 38 1 v03-005 KBT0349 Keith B, Thompson 4-0 t-1982 

; 38 44 : } Use new Linkage definitions 

: 100 38 1 i v03-004 KBT0050 Keith Thompson 10-May-1982 

3 13) 199 : } Check for empty file before calling finish index 

; 108 196 1/ v03-003 KBT0047 Keith Thompson 14-Apr-1982 

; ie \9? : Fix end condition problem with the index buckets 

: 106 105 1! v03-002 KBT0022 Keith Thompson 24-Mar-1982 

; 0 1 1! ix problem with last data bucket being continuation bucket 
3 133 34 24 ; : and more duplicate problems. (Change some Linkages. 

: 110 0109 1! v03-001 KBT0012 Keith Thompson 16-Mar-1982 

:; 11 0110 1! Fix some precepe 3 godess bugs in load_data_bucket 

: a 0111 1! and remove prologue 3 secondary key code 

; 11 0112 1 !eeee 
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PSECT 


1 
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N = _CONVSFAST_D 
GLOBAL = “CONVSFAST=D 
PLIT = “CONVSPLIT 

CODE = ~CONVSFAST s 


LIBRARY ‘SYSSLIBRARY: :L 1B. L32°; 
LIBRARY ‘SRC$:CONVERT'; 


DEF INE_ERROR_CODES; 
EXTERNAL ROUTINE 
CONV 


CONVSSGET-NEXT_KEY 
CONVSSWRITE_KEY_DESC 


FORWARD ROUTINE 
Comves init FAST_LOAD 
LONVSSL OAD SECONDARY 
LOAD_DATA_BUCKET 
LOAD “INDER_ BUCKET 
F INISH_INDEX 
BACKUP INDEX 


EXTERNAL 
CONVSGL_FILL 


CONV$GW_OUT_REC_SIZ 
CONVS$GL_RECORD_COUNT, 
CONVSGL-EXCEPT- COUNT, 
CONV$GL-VALID_COUNT, 


CONVSGW_MAX_REC_S1Z 
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NOVALUE, 


ONVERT _VBN_ID 
Tk Y~DESC, 
NEXT KEY, 


G 
G 
F 
A 
S 
G 
J 
J 
J 
J 
J 
J 
J 
C 
J 
J 
J 
J 
A 
CO 
s 
GET 
uRITE. _KEY_DESC 
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: LONG, 
: SIGNED WORD, 


: WORD, 


AX-11 Bliss-32 V4.0-742 
CONV. SRCICONVFSTLD.832;1 
NOVALUE, 
NOVALUE, 
NOVALUE; 
NOVALUE, 
NOVALUE, 


' Output Rec. Size 


! Aprox. size of record buffer 
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MACRO 


Some needed macros to define the data record for a bucket 
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CONVSFSTLD VAK=11 CONVERT 1$-£29-1984 23:49:35 AX-11 Bliss-32 V4.0-742 Page 
oe 12-8¢b-1984 #3342300 CONV. SRCJCONVFSTLD.B32; 1 
; 17 170 CONVSGL_RFA_BUFFER, 
74 17 CONVSAB_IN_RAB : $RAB_DECL 
75 198 CONVS$AB_OUT_XABSUM : $XABSUM_DECL, 
i: 174 CONVSAB_OUT_FAB : $FAB_DECL, 
7 175 CONVSAB_OUT-RAB : $RABDECL, 
28 176 CONVSAB_RFA-RAB : $RAB-DECL. 
80 178 CONVSGL_EOF _VBN : LONG, 
81 17 CONVS$GB_PROC_V1 : BYTE, 
8¢ 180 CONV$GB~PROL _V¢ : BYTE, 
181 CONVS$GB_PROL-V : BYTE 
1 é CONVS$AR~PROLOGUE : REF BLOCK [ BYTE Be 
85 183 CONVSAR~AREA_BLOCK : REF BLOCKVECTOR C ,AREASC_BLN,BYTE J; 
185 1 LITERAL 
186 FALSE = 0, 
18 TRUE = 1; 
188 
189 
190 
iH 
198 
194 
195 
196 
197 
198 


ne ee ewww ew lolololololololololololololololelolelololololalolololelololo) 


PIPIPOPIPIPIPININIANINININOPUDININNY — et et et a tt 0 


1 
o 1 
3 1 
3 1 
; 1 
; 1 
; 1 
3 1 
; 1 
3 1 
: 1 
3 1 
5 1 
; 1 
; 1 
3 1 
3 1 
; 1 
; 1 
5 1 
; ) 
3 1 IRCSL_RRV_VBN = 3-0.32.08, ' RRV VBN Pointer 
; 1 IRCSL_RRV_VBN3 = 5,0,32,0%, ! RRV VBN Pointer (Prologue 3) 
; 1 IRCSW_VAR_SIZ = 7,0,16,0%, ' Var. Rec. Format Size field 
; 1 IRCSL_DUPTOUNT = 2,0,32,0%, ! Duplicate count field 
; 1 IRC$W_DUPSZ = 6,0,16,0%, ' Size field when dup. are allowed 
; 1 IRC$W_NODUPSZ = 2,0,16,0%, ' Size field when an are_not allowed 
3 4 28 : IRC$W_P3SZ = 0,0,16,0%, ' Size field for prologue 3 files 
; Og $o0 ! These macros make the code look a Little better 
: 204 $36 1 BKTS$W_VBNFS = .CONV$GW_VBN_FS_PTR,0,16,0%, ! VBN Freespace Pointer in index level 
> 205 203 1 BKTSWIVBNFSO = = _.CONVSGWIVBN-FS-PTRO,0,16,0%, | VBN Freespace Pointer at the data level 
; 54 soe ; BKTSL_LCBPTR = .CONV$GW"LCB-PTR,O, 32,02; ! Last Contuation Bucket Pointer 
; 208 206 1! Data Decl. for Fast Load routines 
; 209 207 1! 
: 210 208 1 GLOBAL ? 
: My 4 : CONVSGL_RECORD_PTR : LONG, ! Pointer to record bffer 
: ig at 1 CONVS$GW_VBN_FS_PTR : WORD, 
> 214 I 1 CONVS$GW~VBN~FS~PTRO : WORD. 
5 \? OSt2 : CONVS$GW_LCB_PTR : WORD, 
3; (al? 0215 1 CONVSGL_CTX_BLOCK : LONG, ! Pointer to the contex block 
3 $18 18 ; CONVSGL_DUP_BUF : LONG; ' Pointer to the Duplicate buffer 
$ 6€ee 0218 1 OWN ; 
; 221 0219 1 CONTINUATION : BYTE, ! Continuation bucket 
3 $$ Y } DUPLICATE : BYTE SIGNED, ! Duplicate record 
: 226 § 1 SAVE_FREESPACE : WORD, ' Save pointer for backing up index 
: $85 1 SAVE-KEYFRESPC : WORD, 2h 
i 326 4 1 SAVE —~VBNF S : WORD: 
; a 0225 1 


| 
| 
| 
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| CONVSFSTLD VAX=11 CONVERT 14.22 -1984 23:49:35 AX-11 Bliss-32 V4.0-742 Page 
Rivets FAST_LOAD 12-3 08- 1 abe 93:92:38 CONV. SRCICONVF STLD.632;1 . (4) 
4 4 $ 1 ZSBTTL ‘FAST_LOAD’ 

$ ° , } GLOBAL ROUTINE CONVSSFAST_LOAD : CL$JSB_REG_11 = 
: 13 

3 § , : Functional Description: 

; 5 ¢ 1! FAST_LOAD is the driving routine for the fast loading process. It 
3 $ } : } will load the primary key then sort and load all secondary keys if 
$ 4 ' any. 

3 . 29 

; 9 1 ! Calling Sequence: 

: 520 §s3$ ji _— 

3 41 0 § CONVS$FAST_LOAD() 

: rk 0240 1 | Input Parameters: 

3 rt} 8 re : none 

: 266 0 2 1/ Implicit Inputs: 

> 247 0244 1! none 

; 248 0245 1! 

3; 2469 0246 1 ! Output Parameters: 

; 250 0247 1! n 

Bob PS Bl eee 

3 ' Implic utputs: 

3 3g 0250 1! s none . 

: 254 0251 1! 

s 293 0252 1 ! Routine Value: 

: 256 02535 1! 

: $20 3S ! RMS$_EOF or error code 

: +44 0956 ; Routines called: 

: 261 058 i CONVSSINIT_FAST_LOAD 

: 26 0259 1! LOAD_PRIMARY 

; 26 0260 1! CONVSSEND_OF 

3 264 0261 1! CONVSS$WRITE_ PROLOGUE 

3; 265 Bs0¢ 1! VSSSET_K 

; 266 0263 1! CONVS$$SORT_SETONDARY 

; 267 0264 1! CONVS$LOAD_ SECONDARY 

; 268 0265 1! CONVSSWRITE_KEY_DESC 

3; 269 0266 1! 

3 70 asee 1! Side Effects: 

: 4 see : none 

: 27 $590 1 ise 

3 74 71 #1 

; Le % BEGIN 

> 277 027% DEF INE_KEY_DESC; 

; 278 0275 DEF INE~CTX~GLOBAL; 

; ia 0 %6 DEF INE~BUCRET_GLOBAL; 

: 281 8 28 ! Init the fast load process for all keys 

; sf 0 80 CONVSSINIT_FAST_LOAD( 0 ); 

: 285 0582 ' Load the primary data and index 
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vooo08 = Fast tony ve" 1Efeort age 73:12:00 ECSnviseedeonve steb-a5o¢1 teed” 
; ef RET_ON_ERROR( LOAD_PRIMARY() ); 

4 : Write prologue 

4! CONVSSWRITE_PROLOGUE (); 

38 } Also write the key desc. 

95 CONVSSWRITE_KEY_DESC(); 

37 } Finish off the input file 

+4 CONVSSEND_OF _FILE(); 

4 Free the space taken up by the loading 

08 CONVSSFREE_TEMP_VM(); 

05 ! Process the secondary keys if there we records put into the 

$s] : output file. 

08 ! NOTE: This could cause secondary key indexes to be uninitialized. 

09 } At the moment RMS doesn't mind, if they ever do, something must be fixed. 

1H 


A 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 


MPIPIMIMIIID 9 3 | SQOOCODOCODOOCOCOOCOOOOOOOOOWDDO@MM@mnmw vix 


WWAAA AAA AAI ENON 
OWONO VSWR $9 OOO NO UNE WIN 0 OD NAMEN (OO ODNAMU EWN (O OODNAOYV EWN ("OOCONOUSW 1 


RIAN NII WI AINA AIAN AIA AI AI IAI AI POPU PO NOPONIPU NIPPON RPT nofonononononornororonoponorononn —O 


: 
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0 
0 
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0 
0 
0 
0 
0 
0 
0 
i] 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
9 
0 
0 
0 
0 
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10 
11 -CONVSGL_VALID_COUNT GTRU 0 
\¢ EN 
s1¢ Loop for each key 
316 WHILE CONVSSGET_NEXT_KEY() 
17 dO 
316 BEGIN 
320 ! Set up the sort for the secondary key. The sort is a INDEX sort. 
321 ! This type of sort will produce a file of RFA's and keys of the 
356 primary data level we just made. 
335 RET_ON_ERROR( CONVSSSORT_SECONDARY() ); 
$$ Now that the file is sorted get the data and load it in. 
528 CONVSSLOAD_SECONDARY(); 
% ; } Write the prologue 
32 3 CONVS$WRITE_PROLOGUE(); 
3 And the key descriptor 
36 CONVSSWRITE_KEY_DESC(); 
3 ; Free the space taken up by the last key load 
40 3 CONVSSFREE_TEMP_VM() 
42 3 END; 
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cs 3 ps RETURN RMS$_EOF 
46 


-TITLE CONVSFSTLD VAX=-11 CONVERT 
IDENT \V04-000\ 


| 
| 
| 
| .PSECT _CONVSFAST_D,NOEXE, PIC,2 
00000 CONVSGL_RECORD_PTR:: 
00004 CONVSGW_VBN_FS_PTR:: 
00006 CONVSGW_VBN Ps_PTRO:: 
00008 convscw.ice PTR:: 
| 
| 


-BLRB 
QOOQOA -BLKB 
QOOOC CONVSGL_CTX BLOCK:: 


.BL 
00010 CONVSGL DUP BUF: 
00014 CONTINUATION: 
00015 DUPLICATE: 

.BLKB 
00016 SAVE_FREESPACE: 

.BLKB 
00018 SAVE _KEVFRESPC: 
0001A SAVE_VBNFS: 

-BLKB 


ny ~ RY PP He KE KRNM MAMAS 


~EXTRN ssa gt dnt gt! 


CONV CONVS ADBL x 
"EXTRN CONVS ~bancoeie, CONVS” BAD 
~EXTRN ‘6 ONV$_CONFQ UAL, CONVS_ CREATEDSTM 
-EXTRN CONVS_CREA_ERR, CONVS_DELPRI 
-EXTRN CONVS_DUP,~ CONV NVS_EXTN-ERR 
~EXTRN CONVS “FATALEXC, rons FILLIM 
~EXTRN CONVS_IDX LIM. CON $_TLL_KEY 


T CONVS_KEY 

TEXTRN CONVS"KEYREF, CONVS-LOADIDX 
TRN CONVS$"NARG, $_N 

eEXTRN CONVS_NOKEY CONS NOTIDX 

TEXTRN CONV$"NOTSEG, CONVS NOWILD 

XTRN CONVS-ORDER, CONV$_OPENEXC 

XTRN CONVS- “OPENIN CONVS_OPENOUT 

XTRN CONV$"PAD, C ar 

XTRN CONVS “PROERR CORY PROL _wRT 

XTRN CONVS$"READERR, 

XTRN CONVS$"RSZ, COnVER 


| 
| 
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CONVSFSTLD VAX-11 CONVERT 18-5 -1984 69: 5 AxX-11 Bliss mt ‘6s 742 ie 
v04- FAST_LOAD 12-Sep-19 4 ; 14:00 CONV. SRCICONVFSTLD.B32;1 ea 


ge CONVS$_RTS, ot tos 


~EXTRN CONVS_UDF _ CONS. pF UDF gett 
eEXTRN CONVS-VFC> Or hy WRITE 

-EXTRN CONVSSGET_VM, CORVS GET. Tene. VM 
“EXTRN CONVSSFREE VTEME VR vM 

sEXTRN CONVSSEXCEPTION™ 

-EXTRN CONVSSEND_OF FILE 

-EXTRN CONVS$SORT_SECONDARY 

~EXTRN CONVS$SGET_RECORD 

sEXTRN CONVSSCHECK_S DUP 

«EXTRN CONVSSCHECK_NOLL 

-EXTRN CONVSSSPLIT-DATA 

«EXTRN CONVSSCOMPRESS_KEY 

~EXTRN CONVSSCOMPRESS~ INDEX 

-EXTRN CONVSSMAKE_ INDEX 

~EXTRN convasuniT TE_VBN 

«EXTRN CONVSSCOPY_REY, CONVSSWRITE_BUCKET 
“EXTRN CONVSSGET T Buc KET 

-EXTRN CONVSSINIT_B 

-EXTRN CONVSS SCREATES ne KEY 

~EXTRN CONVSSWRITE PROLOGUE 

«EXTRN CONVSSCONVERT. V BN ID 

-EXTRN CONVSSSET_KEY ct 

-EXTRN CONVSSGET"NE ry. 

~EXTRN oe og Hh K 

~EXTRN CONV cOnVECU_ OUT_REC_S1Z 


x_REC_S 
~EXTRN CONVSEL” “RFA_BUFFER 
-EXTRN CONVSAB_IN_RAB, CONVS$AB_OUT_XABSUM 
-EXTRN CONVSAB ~bur' FAB 


E 
-EXTRN CONVSAR-AREA_BLOCK 
-PSECT _CONVSFAST_S,NOWRT, SHR, PIC,2 


7E 59 7D 00000 CONVSSFAST_LOAD:: 
mova) = RO, = (SP) : 
4 0000 CLRL 0s = (§P) : 
0006v 0 0000 BSBW CONVSSINIT _FAST_LOAD : 
SE g 0008 ADDL2 P : 
00 Ov 0008 BSBW toaD PRIMARY : 
39 0 £9 00 F BLBC = STATOS, : 
00006 CF 00 Fe 0001 CALLS 30, ON Sunite PROLOGUE : 
00006 3 0016 CONV SWRITE KEY DESC : 
00006 CF 00 F 1 CALLS #0, CONV SEND OF FILE ; 
00006 30 00 3 BSBW CONVSSFREE TEAP 0M : 
00006 CF D5 00 3 TSTL CONVSGL. VACID_ COUNT : 
ic 13 00025 BEQL : 


it 11 

CONVSFSTLD VAX=11 CONVERT 15-Sep-1984 AX-11 Bliss-32 V4.0-742 P 10. 
vou FAST LOAD 1aneee= fhe F3ita:00 — ebny seelebnaesteo esos) oe dS | 
00006 3 7 1$: BSBW CONV $ceT. NEXT_KEY : 0313 
16 ; A BLBC F | 
- 00006 BSB Taig $s0R _SECONDARY + 0321 

0000v 53 BSBW sr Hots SECONDARY : 03 

00006 CF 00 FB 000 CALLS VSSORITE - PROLOGUE : 03 

00006 ; 0038 BSBW VESURITE KEY~DESC : 03 

00006 $¢ 0055 BSB LONVSSTREE _TEMP=VM : 033 

50 0001827A i 00 0043 38: MOVL #98938, RO + 034 

9 E 7D OO04A 3$: MOVG  (SP)+, R9 + 034 

05 0004D RSB ; 
; Routine Size: 78 bytes, Routine Base: _CONVSFAST_S + 0000 


By 


a | 


CONVSFSTLD VAX=11 CONVERT alee 1984 23:49:35 AX-11 8B -32 V4.0-742 
v04 INIT_FAST_LOAD 4-Sep 01984 t 93: 214: ‘80 tt NVFSTL D.832;1 
; 8 308 1 ZSBTTL ‘INIT_FAST 08D 

; ri 7 ! GLOBAL ROUTINE CONVSSINIT_FAST_LOAD ( MAX_KEY ) : CLSINIT_FAST_LOAD NOVALUE = 
: 1 <3 1/ 

: § re : : Functional Description: 

3; 354 50 1! Initialize the fast load process. Get memory for buffers and set up 
» ie 0351 1! pepnters. There are up to 3 pointers to record buffers at each level 
; i 8 2§ 1! CP, RDP and LKB for level 0 and prologue 3 files. The RCP, LKP and 
3 a 8 te : RDP for all but level 0 pointers are set here. The proper Sizes are: 
3 59 8 55 1 § == eppnrmremooseoeseosoeeseeeece ececescoecesooan 

; 360 56 1! LEVEL 0 RCP ===>} max_key + 13 ' 

3 61 0 57 1 ¢ == ~~ peppnremmoseseesenseeoeeeeseeseeeeesooeeeeo 

; ¢ 0358 1! 

3 6 8328 1 nm nemoeeoeeeooeooeoeoeoec= 

; 308 360 1! LEVEL 1+ RCP <-->! 5 f 

: 5 0361 1 et =~  —  gaepipeeneneeeeoeweeeoeeeeeeeeeoeeesececoan 

; 308 B06 1! 

8 67 36 1 @ ee oases seeseseseeeoesseseeeso 

; 368 0364 1! RDP ===>} max_key + 2 : 

3 9 0365 1 te = ones eoeeeeesoeeeeseeeeeeeeseeeece 

3; 370 0366 1! 

; 371 0367 71!  #& + & & & & &#&  emmmmmmenmeeooeevoececcececeecoccccececce 

; 37 0368 1! ALL LEVELS LKP ===>; max_key 

. ir oe 4: #4“ 9tc—_ssscelLesesececesenccesesceoaceesses 

3 374 0370 1! s 

3 $2 937) i The RDP for level 0 is set in load_primary and load_secondary. 

s 377 0373 1 ! Calling Sequence: 

: 78 0374 1! 

; 379 0375 1! INIT_FAST_LOAD(); 

; 380 0376 1! 

3; 381 0377 1°! Input Parameters: 

; 306 0378 1! none 

: 38 0379 1! 

3; «384 0380 1 ! Implicit Inputs: 

; 385 0381 1! none 

: 386 S404 1! 

5 Jer 0385 1 ! Output Parameters: 

3 $58 0384 1! none 

3; 389 0385 1! ; 

: 390 9308 1 ! Implicit Outputs: 

; 391 HS 1! none 

: 4 388 1! 

; 39 389 1 ! Routine Value: 

: 394 0390 1! none 

3; 395 0391 1! 

: 98 308 1 ! Routines Called: 

; 39 393 1! 

; 398 394 1! CONVSSSET_KEY_DESC 

: 399 395 i! CONV +43 “NEXT_KEY 

; 400 309 1! CONVSGET_9M 

: 401 97 1! 

: $36 398 1! Side Effects: 

: 40 0399 1! . 

: 604 0400 1! Sets the end of file VBN pointer. Allocates memory for record buffers. 


12 
C FSTLD VAX=11 CONVERT 18.38 -1984 23:49: AX-11 Bliss-32 V4.0-742 Pa 12 
vad +8 INIT_FAST_LOAD 12-80 8=1 382 $3:42:00 ECONV. SRC CONVF STLD.832;1 - (5) 
; 405 . =F Sets up the record data pointers, record control pointers and last key 
13 Pr § : H pointers, 
: 408 1 i-- 
; 4 4 i 
; 610 BEGIN i 
; 411 i 
: cig 4, ; DEF INE_CTX; i 
3; «(41 0 DEF INE_BUCKET; i 
i $16 419 DEF INE-KEY_DESC; 
; 416 alg ! Since we are doing block 10 we dont need the XABs anymore 
; (41 441 : If they are keep around area xabs (if any) will override the fab during i 
3 218 1 : an extend a screw everything up. i 
; 420 416 CONVSAB_OUT_FAB { FABSL_XAB J] = 0; 
3 6 ¢ 18 ! Find the end of file VBN. In a new file it the one block past the last 
3; 6 419 ! allocated area (the Lact area may not be allocated therefore look at i 
3: 626 0420 ' one) : 
; 4625 421 ; i 
: 4 $ ¢ BEGIN ! HIGH_VBN Local : 
s 6 4 i 
; 428 04 4 LOCAL HIGH_VBN; 
; 4629 425 : 
3 ? ? 36 $ HIGH_VBN = 0; i 
: 4 é be a INCR AREA FROM 0 TO ( .CONVSAB_OUT_XABSUM [ XABSB_NOA ] - 1 ) BY 1 
: te bc86 *y 
; re 043i ! If the current extent starts at a higher VBN then the Last one i 
3 $39 Be ; us this one to find the end of file : 
: 438 0434 iF .CONVSAR_AREA_BLOCK C .AREA,AREASL_CVBN ] GTR .HIGH_VBN ; 
3 $78 0136 THEN ; 
: 441 04 ! The end of file is this the start of this extent plus the number : 
3 5 ot of blocks in the extent : 
: 444 0440 CONVSGL_EOF _VBN = .CONVSAR_AREA_BLOCK C .AREA,AREASL_CVBN J + i 
; 445 et .CONVSAR_AREA_BLOCK £ .AREA,AREASL_CNBLK J; 
> 647 ry END; ! HIGH_VBN Local ; 
3; 648 Bete : i 
3; 449 445 ! Calculate the max space needed for index key buffers and init. the contex i 
3 $20 of block. If it was not given. F 
; 43¢ 448 if .MAX_KEY EQLU 0 
: 45 449 THEN 
3 644546 450 BEGIN i 
; 4655 451 F 
; 456 $36 ! The max. size is the size of the logest key. F 
: tet th } So we check each key desc. 
> 459 455 CONVSSSET_KEY_DESC( 0 ); 
; 460 rt F 
3; 461 045 dO i 
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12 
VERT 1$-$55-1986 23:49:35 VaKeTT 
LOAD y2=gee=}38e 23:42:33 


ast. 


CONV.S 


IF ,KEY.DESC C KEYSB_KEYSZ J GTR .MAXKEY 
MAX_KEY = .KEY_DESC C KEYSB_KEYSZ J 
UNTIL NOT CONVSSGET_NEXT_KEY() 


BEGIN 
LOCAL BYTES; 
figure the total number of bytes. (SEE ABOVE) 
BYTES = ( .MAX_KEY * ( MAX_IDX_LVL + 1) ) # ( MAX_IDX_LVL * 7) + 13; 
} For Prologue 3 files we may need the last key buffers 
iv _CONVEGS_PROL VS 
BYTES = .BYTES + ( .MAX_KEY * ( MAX_IDX_LVL = 1) ); 
} Add the space for the contex block 
BYTES = .BYTES + ( MAX_IDX_LVL * CTXSK_BLN ); 
Get the zero filled space 


“. CONVSGL_CTX_BLOCK = CONVSSGET_VM ( .BYTES ) 


! Set all of the record control pointers and record data pointers for 
level one (1) and above. 


CTX = .CONVSGL_CTX_BLOCK; 

CTX C CTXSL_RCP J = .CTX + ( MAX_IDX_LVL * CTXSK_BLN ); 
BEGIN ! BUFFER_OFFSET Local 

LOCAL BUF FER_OFF SET; 

BUFFER_OFFSET = .CTX C CTXSL_RCP J + .MAX_KEY + 13; 
INCR 1 FROM 1 TO ( MAX_IDX_LVL - 1 ) BY 1 


BEGIN 

CTX = .CTX + CTX$K_BLN; 

CTX C CTX$B_LEVEL J = .1; 

CTX € CTX$SL"RCP ) = .BUFFER_OFFSET: 

CTX C CTX$L-RDP J = .BUFFER-OFFSET + 5; 

BUF FER_OFFSET = .BUFFER_OFFSET * .MAX_KEY + 7 


Pa 13 
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12 
FSTLD VAX=11 CONVERT 1.36 =1986 23:49:35 AX-11 Bliss-32 v4.0-742 
INIT_FAST_LOAD 12-9 08- 1 98e "3 1280 CONV. SRCJCONVFSTLD.B32; 1 
1 15 CTX = .CONVSGL_CTX_BLOCK; 
6 i Ct™x C Aitieted j = .BUFFER_OFFSET; 
19 Set up the last key buffer if necessary for levels 1 and above 
é ; IF, ,CONVSGB_PROL_v3 
$ 3 é INCR 1 FROM 1 TO ( MAX_IDX_LVL - 1) BY 1 
8 504 4 BEGIN 
9 525 4 CTX = .CTX + CTXSK_BLN; 
3 $ 4 BUFFER OFFSET = ,BOFFER OFFSET + .MAX_KEY; 
1 4 CTX € CTXSL_LKP J = .BUFFER_OFFSET 
: a6 t ~ 
: 03 , END; ! BUFFER_OFFSET Local 
5 RETURN 
335 0839 
538 0534 END; 
1C BB 00000 CONVSSINIT_FAST_LOAD:: 
PUSHR “#*M<R2,R3,R4> 
00006 CF D4 00002 CLRL  CONVSAB_OUT_FAB+36 
54 D4 00006 CLRL HIGH 
53 00006 CF 9A 00008 MOVZBL CONVSAB_OUT_XABSUM+8, R3 
50 01 CE 00000 MNEGL #1, AREA 
1D 11 00010 BRB 
52 50 06 78 00012 1$: ASHL. #6, AREA, R2 
51 52 00006 CF C1 00016 ADDL3 CONVSAR_AREA_ BLOCK, R2, R1 
54 OC Al D1 0001C CMPL 12(R1),~HIGH-VBN 
0D 15 909 0 BLEQ 2$ 
52 00006 CF CO 000 : ADDL2 CONVSAR_AREA_BLOCK, R2 
00006 CF oc Al 10 Ae C1 000 ADDL 19(R2) 12(RT), CONV$GL_EOF_VBN 
DF 50 53 F2 OO0F 2%: AOBLSS R3, AREA, 1$ 
10 AE 05 00033 TSTL _KEY 
1¢ 12 000 BNEQ 
7E p4 0038 CLRL =(SP) 
00006 30 0003A BSBW CONVSSSET_KEY_DESC 
5E 4 C0 00030 ADDL2 #4, 
10 AE 146 AB 08 : FD 9040 3$ CMPZV #0, #8, 20(KEY_DESC), MAX_KEY 
004 BLEQ 4 
10 AE 16 AB 9 00049 MOVZBL 20(KEY_DESC), MAX_KEY 
00986 bet 4$: BSBW CONVSSGET_NEXT_KEY 
EC 0 € 03 BLBS RO, 3$ 
10 AE DO 00054 S$: MOVL. MAX_KEY, R2 
51 5 2 ¢ 058 MULL3 433 R2, R1 
5 0 E C1 f 005¢ MOVAB 237(R1). BYTES 
07 0006 CF E 9061 BLBC CONVSGB_PROL_VS, 6$ 
51 2 1F C5 00066 MULLS #31, R2> Ri 
50 51 £0 06A ADDL BYTES 
50 0880 £0 E 060 6$ MOVAB 2944(R0), BYTES 
DD 00072 PUSHL BYTES 


12 
CONVSFSTLD VAX=11 CONVERT 18-65 541984 23:49:35 VAXe11 Bliss 0-74 
you~008 gepn 1 3Be F3t2:b0 Bt anaest ; 


INIT_FAST_LOAD 14-Sep-1984 CONV. SRCICON vEst b. 05536 1 
00006 3 7% BSBW CONVSSGET VM 
4 ¢ 77 ADDL2 #4, 
0000' cf 0 Dd 7A MOVL RO, EON ONV$GL_CTX_BLOCK 
A 0000" CF O7F MOVL SONY GL_CTX mit CTX 
30 =AA 08 ; CA ‘ 0 MOV 944(R10) 
50 : AA C1 OOOBA ADDL3 48(CTX), R2, R 
0D CO 0 F ADDL2 #13, BUFFER’ OFFSET 
1 01 BO 3 MOVL = #1 
A SC OA : 095 7$ MOVAB $2tR 0), CTX 
2 AA 31 90 00099 MOVB =e iT, 2¢CTX) 
0 AA 0 D0 0009D MOVL UFFER OFFSET 48(CTX) 
4 AA 05 Ap 3 OA} MOVAB (RO), ~52¢CTXS 
50 7 A246 5 Ab OVAB (R2)CBUFFER_OFFSETJ, BUFFER_OFFSET 
E6 51 1F 3 OOOAB AOBLEQ #31, I, 7$ 
SA 0000° cf v6 OOAF VL  CONVS$GL_CTX_BLOCK, CTX 
3C AA 0 DO 00084 MOVL BUFFER OFFSET, 60(CT 
12 0000G CF €E9 00088 BLBC CONV$GB_PROL_V3, 9 
51 01 DO 000BD MOVL #1, I 
SA SC OAA 3 000CO 8S: MOV 92(R10), CTX 
50 52 CO 000C4 ADDL2 2, BUFFER OFFSET 
3c AA 50 D9 000C7 OVL  BUFFER_OFFSET, GO(CTX) 
F1 51 if F3 000CB AOBLEQ #31, I> gs 
1C BA OOOCF 9$: POPR #@M<R2.R3,R4> 
05 00001 RSB 


; Routine Size: 210 bytes, Routine Base: _CONVSFAST_S + O04E 
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VAX=11_ CONVERT 17=3007 1388 $349: 32 AXx-11 
LOAD PRIMARY 14-Sep-1984 12:14:00 CONV.S 


ZSBTTL_ "LOAD PRIMARY" 
ROUTINE LOAD PRIMARY : CLSJSB_REG_9 = 


! 
Functional Description: 


Loads the primary key of a index sequential file. 
Calling Sequence: 
LOAD_PRIMARY() 


Input Parameters: 
none 


Implicit Inputs: 
none 

Output Parameters: 
non 

Implicit Outputs: 
none 


Routine Value: 
RMS$_EOF or error codes 
Routine Called: 
CONVSSSET_KEY_DESC 


CONVSSGET_TEMP VM 
CONVSSGET_BUCKET 


ONVSSSPLIT DATA 
LOAD DATA _BOCKET 


FINISH_INDEX 
Side Effects: 
Loads primary key 


INE_CTX; 
INE “BUCKET; 
INE~KEY_DESC; 


CTX = .CONVSGL_CTX_BLOCK; 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
! Set key to the primary index 
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538 } 
9 94 
600 95 
601 38 
6 § 9 
6 9 
604 9 
605 600 
S08 601 
60 60 
608 $8 
609 4 
610 0605 
611 Bone 
ol¢ 060 
61 0608 
614 0609 
615 0610 
616 0611 
617 pols 
618 061 
619 0614 
$30 0615 
621 0616 
6 ¢ 0617 
6 0618 
624 eh 
oe? 620 
626 0621 
627 8858 
628 06 
668 0624 
630 0625 
631 0626 
O34 0627 
63 06 $ 
634 06 
635 0650 
6 0631 
63 tt 
638 063 
639 0634 
640 B02 
641 6 § 
O46 06 
64 0638 
644 639 
645 640 
646 41 
647 ; 
648 4 
649 44 
650 5 
651 § 
636 bee 
65 648 
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AX-11 


9 
4 CONV.S 


38 


' 

CONVSSSET_KEY_DESC( 0 ); 

Errors on the rab from now on are WRITEERRs 
CONVSAB_OUT_RAB C RABSL_CTX J = CONVS_WRITEERR; 


! For prologue 3 files we need an extra buffer for the data record 
! Else we let the REC_DATA_PTR point to the user buffer of the output rab 


! 
if .CONVSGB_PROL_Vv3 
THEN 

BEGIN 

LOCAL BYTES; 


The worst case is fully non compressed record with compression info 
BYTES = .CONVSGW_MAX_REC_SIZ + 3; 

Get the space for the data buffer 

} Record data pointer at level 0 will point to the new buffer 

CTX C CTX$L_RDP J] = CONVSSGET_TEMP_VM ( .BYTES ) 


END 
ELSE 


Record data pointer at level 0 points to Record Ptr 
CTX C CTXSL_RDP J = .CONVSGL_RECORD_PTR; 
Get the Buckets for the data area and at least the first level of the index 
} Get the bucket for level 0 
CONVSSGET_BUCKET( .KEY_DESC C KEYSB_DANUM J ); 
KEY_DESC C KEYSL_LDVBN ) = .CTX C CTX$L_CURRENT_VBN J; 
Get the bucket for level 1 


CTX = .CTX + CTX$K_BLN; 
CONVSSGET_BUCKET( TKEY_DESC C KEYSB_LANUM ) ); 


CTX = .CONVSGL_CTX_BLOCK; 

! For the primary key the Data comes from GET_RECORD. NOTE: Don't use the 
! UBF of the input RAB since some record conversion may be done. Also note 
! the RBF poleter of the output RAB is destroyed after the first call to 
WRITE_BUCKET but it is ok to use it now. 

BEGIN 


DEF INE_RECORD_CTRL_GLOBAL ; 


— 
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CONVSFSTLD VAX=-11 CONVERT 15-Sep-1984 23:49:35 AX-11 Bliss-32 v4.0-742 
| You~008 LOAD PRIMARY 12-8 08- 1 Oke $3342 30 CONV. SRCICONVF STLD.B32;1 
; 654 649 LOCAL 

; i 5s ? STATUS; 

3 637 § RECORD_CTRL = .CTX C CTXSL_RCP J; 

; 659 0684 ! Main record presens*ne loop. The call to GET_RECORD does any record format 
; 660 655 ' processing and oucept on handling before it returns. The size of the record 
3 $87 0357 is passed back by OUT_REC_SIZ. 

; 66 638 4 WHILE ( STATUS = CONVSSGET_RECORD() ) 

; 664 0659 3 

; 665 60 4 BEGIN ! Main Loop 

> 666 661 4 

3 667 0662 4 DUP_BLK: 

; oe8 Beer BEGIN ! DUP_BLK Primary duplicate block 

; 670 0665 ! If the record is shorter the minium record Length of the primary key 
: $7) 898 2 } cause an exception 

3; 67 0668 5 IF .CONV$GW_OUT_REC_SIZ LSS .KEY_DESC C KEYSW_MINRECSZ J 

3; 674 0669 5 THE 

; 675 0670 6 BEGIN 

; 676 0671 6 

; 677 0672 6 LOCAL STATUS; 

; 678 0673 6 / 

; 679 gore ? If it was not fatal continue else exit 

; 681 0676 6 IF STATUS = CONVSSEXCEPTION( CONVS_RSK ) 

; 68 0677 6 THEN 

; 68 0678 6 LEAVE DUP_BLK 

3 0679 6 ELS 

; 685 0680 6 RETURN .STATUS 

3 post 2 ND; 

; 688 0683 5 : Seperate the key from the data record if necessary and do 

; 689 0684 5 ! data compression if necessary also check if this is a duplicate 

3 0685 : ' or the key is out of order 

3; «691 0686 ‘ 

; 23 se $4 5 DUPLICATE = CONVSSSPLIT_DATA(); 

: 694 0689 ; ! If out of order, i.e. duplicate = -1, signal exception and continue 
; 695 0690 5 ! 

; 696 0691 5§ IF .DUPLICATE LSS 0 

; 697 0692 5 THEN 

; 698 0693 6 BEGIN 

; 699 0694 6 

: 700 0695 6 LOCAL STATUS; 

3; 701 0696 6 d 

3 ” 34 ° If not fatal exception then continue else bomb 

3; 7046 0699 6 IF STATUS = CONVSSEXCEPTION ( CONVS$_SEQ ) 

; 705 0700 6 

: roe 701 6 LEAVE DUP_BLK 

: 70 7 § 6 

; 708 7 6 RETURN .STATUS 

; 709 704 3 

; 710 705 END; 


| 
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12 
CONVSFSTLD VAX=11 CONVERT 1.38 =1984 23:49:35 AX-11 Bliss-32 V ow 742 
you LOAD_PRIMARY 1278 08-1 3b 93:42:38 CONV. she atts SNVESTL D.832;1 
; 711 7 
; ats Ht ; ; If we got a dup and we dont allow dups then cause an exception 
: 714 7 5 6 iF .DUPLICATE AND ( NOT .KEY_DESC C KEYS$V_DUPKEYS ) ) 
¢ TR Bry 6 THEN EGIN 
: a5 One 4 
: 718 71 6 LOCAL STATUS; 
; 719 0714 6 
3 44 ? If not fatal exception then continue else bomb 
2 g O77 6 if STATUS = CONVSSEXCEPTION ( CONV$_DUP ) 
. £ at 6 THEN 
: 724 0719 6 LEAVE DUP_BLK 
: 725 0720 6 ELS 
; 726 0721 6 RETURN .STATUS 
: 727 07 ; 6 
: 728 07 : END; 
3 44 0724 
$ ° 875¢ : Set up the control byte for the record 
; 732 0737 3 RECORD_CTRL C IRCS$B_CONTROL J = 2; 
; i 0799 5 ' Set the size field int the record 
3; 735 0730 5§ ' 
; 736 0731 5 IF .CONV$GB_PROL_V3 
3 737 Of as 5 THE 
; 738 07 6 BEGIN 
; 739 bee 6 
: me 165) ? } A small non compressed fixed length record has no size field 
: 74 0737 6 if .KEY DESC C_KEY$V_REC COMPR 1_oR 
; 74 0738 6 eKEY_DESC C KEYSU_KEY_COMPR J O 
3 me 3894 i Ce CONVSABL OuT "PAB E FABSB_RFM ) EQLU FABSC_VAR ) 
: 746 0741 6 RECORD_CTRL C 9,0,16,0 J] = .CTX C CTX$W_RCS ] + 
s 747 toe 6 CTX C CTX$W_RDS J = 11 
; 748 074 g END 
3; 749 0744 ELSE 
: 750 0745 5 
3 (fl 0746 5 ! Set up the record size for var. length records 
: P36 2544 : : for prologue 1 and 2 files 
; roe Eh 2 IF ;,CONVSAB_OUT_FAB C FABSB_RFM ) EQLU FABSC_VAR 
: 236 231 ; RECORD_CTRL C IRC$SW_VAR_SIZ ] = .CONV$GW_OUT_REC_SIZ; 
: 758 0788 H ' If we are in a continuation bucket and the current record is NOT a 
3 544 ore : duplicate then write the current bucket out and start a new one 
: 761 0796 5 For optimumization do the continuation check first 
: 88 758 ; if . CONTINUATION THEN IF NOT .DUPLICATE 
; 764 759 THEN 
’. ree 760 6 BEGIN 
3 708 761 6 
; 76 0762 6 CONVSSWRITE_BUCKET(); 


SS 


12 
| CONVSFSTLD VAX=11 CONVERT ep-1984 5 x-11 8B =32 v4.0-742 Page 20 
voc LOAD PRIMARY b-Sep- 1984 93:92:30 Hebny she lESnvesteb B soe ve 
; 768 763 6 
; f ° ree ? CONVSSINIT_BUCKET(); 
; 771 766 6 ! Continuation no longer need be set. (the next record will always 
; 77 767 6 i fix into the new bucket 
: a7 88 3 CONTINUATION CLEAR 
: 775 770 “ 
3; 77 771 END; 
. or ak 
; 778 077 ' Load the record 
; 779 Bree ! 
; 780 775 LOAD_DATA_BUCKET() 
at $738 END ! DUP_BLK Primary duplicate block 
3 LK Primary duplicate bloc 
; 78 0778 ; END; i Main Loop A sages 
: 784 0779 
; 785 0780 ! If we exited because of end of file and there are records in the file 
; 786 0781 ' then finish off the index 
3; 787 41 i 
; 788 078 if ( .STATUS EQLU air EOF ) A 
3; 789 th 4 t TEONVSGL NRECORD. COUNT NEQU .CONVSGL_EXCEPT_COUNT ) 
; 790 0785 THEN 
; 791 0786 FINISH_INDEX(); 
; 79 0787 
; 79 0788 RETURN CONV$_SUCCESS 
3 794 0789 
; 795 0790 END 
; 796 0791 #1 END; 
0104 8F BB 00000 LOAD_PRIMARY: 
PUSHR #*M<R2,R8> ; 0536. 
5A 0000° CF D0 00004 MOVL CONVSGL CTX_BLOCK, CTX ; 0589 
7E Be 00009 CLAL -(SP) ; 0593. 
00006 30 0000B BSBW corevasset KEY_DESC 3 
5E ge CO QOO0E ADDL2 3 
0000G CF 000000006 F pO 00011 OVL acONYS ees b CONVSAB_OUT_RAB+24 ; 0597. 
16 0000G CF e? gaoia BLBC CONV$GB_PROL ; 0602 
50 0000G CF 3C OO0iF MOVZWL Space MAX ‘AEC SIZ, BYTES 3 0610 
50 93 CO 00024 ADDL2 3 
7 0027 PUSHL BYTES 3; 0616 
00006 38 9 BSBW CONVSSGET_TEMP_VM : 
5E Be CO 0002C ADDL2 4, 5 3 
34 AA 0 09 002F MOVL RO, S52(CTX) - 
06 11 000 H BRB $° 5 
34 AA 0000' CF 00 00035 1$ MOVL Vetta te RECORD _PTR, 52(CTX) ; 0623 
7E 08 Ae A 00 23 MOVZBL DES ds -TSP) : 0629 
00006 30 00035F BSB ONVSSGET 8 CKET : 
54 AB 98 AA po 0 ry MOVL BLKEY DESC) : 0631 
SA C AA 9E 4 MOVAB vein 1 CTX ; 0655 
bE 07 AB 2, 4B MOVZBL 7(KEY DESC), (SP) > 0636 
008 6 8 OO4F BSBW CONVSSGET _BUCKET : 
5E 4 CO 00052 ADDL2 #4, SP ; 
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CONVSFSTLD VAX=-11 CONVERT 
voe~000 LOAD_PRIMARY 
A 0000° CF 
Og 
5 
Eee 
009 
50 16 =A 
50 vOOOG CF 10 6 
000000006 : 
00006 
0000" CF 50 
000000006 4 
14 0000" CF 
10 10 AB 
00000000G 8F 
0000G CF 9} 
68 0 
B4 
68 02 
23 0000G CF 
10 AB 
oc 
07 10 AB 06 
02 00006 cf 
50 38 = =6AA 
51 3A OAA 
50 51 
09 =AB 50 0B 
0D 
02 00006 ee 
07 «AB 000G CF 
OF 000° CF 
OA 0000" (CF 
00006 
00006 
0000° (CF 
oon 
0001827A = BF 53 
0000G CF 00006 ff 
0000Vv 
50 4 
0104 F 
; Routine Size: 280 bytes, Routine Base: _CONVSFAST_ 
: 797 0792 1 


15560-1984 $3349 


2:30 


14-Sep-19 
Dd 5 MOVL 
4 A MOVL 
. 3$: BSBW 
D 6 MOVL 
64 BLBS 
1 67 BRW 
C QO06A 4$: MOVZWL 
Fe Be8 CMPV 
0 BGEQ 
DD it PUSHL 
1 00070 BRB 
go 5$: BSBW 
$6 MOVB 
18 0008 BGEQ 
DD 00089 PUSHL 
11 QOO8F BRB 
E9 00091 6$: BLBC 
E8 00096 BLBS 
DD 4449 PUSHL 
FB QOOAO 7$: CALLS 
E9 OOO0AS BLBC 
11 QOOA8 8$: BRB 
90 QOOAA 9$: MOVB 
E9 QOOAD BLBC 
95 00082 TSTB 
19 00085 BLSS 
3 00087 BBS 
1 000BC CMPB 
12 000C1 BNEQ 
HS Boece 10$: MOVZWL 
C 000C7 MOVZWL 
CO 000CB ADDL 
A3 000C SUBW 
11 0000 BRB 
91 00005 11$: CMPB 
12 QOODA BNEQ 
BO Bp 0DS MOVW 
—9 Does 128: BLBC 
8 BODE BLBS 
0 OOOEC BSBW 
0 OOOEF BSBW 
94 Bore CLRB 
30 OO0OF6 138: BSBW 
11 are BRB 
D1 ore 14$: CMPL 
af 010 BNEQ 
D bie CMPL 
13 001 BEQL 
30 001 BSBW 
DO 00110 15$: MOVL 
BA 0113 16$: POPR 
5 0011 RSB 
S$ + 0120 
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iss- 
JCON 
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3 
V 
CTRL 


4 
23 (KEY DESC), RO 
#0, #18, CONVS$SGW_OUT_REC_SIZ, RO 


#CONVS$_RSK 


CONVSSSPLIT_DATA 
RO, DUPLICATE 


#CONVS_SEQ 
7$ 


DUPLICATE, 9$ 
16(KEY_DESC), 9$ 


#CONV$ DUP 
#1, CONVSSEXCEPTION 
TUS, 16$ 


Neu 
AOA 


ECORD_CTRL) 
B PROC_V3, 11$ 
_BESC) 


(KEY DESC), 10$ 


‘y 
NVS 

E 

1 
VSAB_OUT_FAB+31, #2 
T 

T 

R 


R 
G 
Y 
a 6 


$ 
( 
( 
{. RO, 9(RECORD_CTRL) 
NVSAB_OUT_FAB+31, #2 


ONVSGW_OUT REC SIZ, 7(RECORD_CTRL) 
ONT INURT 108 13$ 


UPLICATE, 13$ 
ONVSSWRITE BUCKET 
CONVSSINIT_BUCKET 
NT INUATION 
OAD_DATA_BUCKET 
STATUS, #98938 
CONVSGL_RECORD_COUNT, CONVSGL_EXCEPT_COUNT 
FINISH. INDEX 
#°M<R2,RB> 
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; 799 793 1 2SBTTL ‘LOAD SECONDARY’ 

: 34 Pee : GLOBAL ROUTINE CONVSSLOAD_SECONDARY : CLSLOAD_SECONDARY NOVALUE = 
; 80¢ 79% 1: 

: rite a : } Functional Description: 

; 805 799 1/3 oads a secondary key of an index sequential file. Which secondary 
3 HH 800 1! ndex depends on KEY_REF. The secondary 

; 807 801 1! data records are read from the RFA file created and opened by 
; 808 802 1! SORT_SECONDARY. NOTE: The overall operation of LOAD_SECONDARY is 
: 598 080 } fundementally different then LOAD_PRIMARY. 
3 H He ' Calling Sequence: 

; 18 O80? ; CONVSSLOAD_SECONDARY(); 

: eis stt4 : ! Input Parameters: 

3 ' none 

; 817 0811 1! 

Fis Geom Bs 21 seer eae 

: 820 0814 1: 

: : 1 Bat? : Output Parameters: 

: $5 O81? 13 

3 ase tty ; Implicit Outputs: 

3 ! none 

: 826 0820 1! 

3 eH oes! ! } Routine Value: 

; 829 08 § ; RMS$_EOF or error codes 

; 831 08 5 Routines Called: 

; 833 0827 1: CONVS$GET_BUCKET 

3 te +34 : CONVSSGET_TERP_VA 

; 836 $850 1 i CONVSSCHECK_NULL 

3; 837 0831 1! CONVSSCHECK S_DUP 

; 838 oe 1! LOAD_DATA_BOCR 

; 839 0835 1! vSSCOPY 

3 re 0834 1! CONVSSWRITE_ BUCKET 

: 1 0835 1! CONVSSINIT_ BUCKET 

3 Beg 633s 73 CONVSSCONVERT_VBN_ID 

; 84 08 Vi F INISH_INDEX 

; B45 0839 Side Effects: 

: Bc? O8c ! ! Loads secondary index defined by KEY_REF 

: 849 Be 1 ine 

; 850 B44 1 

: + be BEGIN 

; 33 5 DEF INE_CTX; 

> 854 848 DEF INE~BUCKET; 

; 855 0849 DEF INE~KEY_DESC; 
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$e 
LABEL 

NULL_BLK; 


CAL 
DUP_COUNT, 
MAX_NUM_ DUP; 


VIMY 


MEARS OO DONOUS Win 


Init some values 


IF .CONV$GB_PROL_V3 
THEN 


Basar 


: For compression it is also different 
if .KEY_DESC C KEYSV_IDX_COMPR ] 
THEN 


s 
m-OO 


865 ; 

: £06 CONTINUATION = CLEAR; 

: U4 ° DUPLICATE = _CLEAR; 

4 yt ya Errors on the rab from now on are WRITEERRs 

; 71 O86 CONVSAB_OUT_RAB C RABSL_CTX J = CONVS_WRITEERR; 

3 B78 O86? } Point to the first block 

: B75 0869 CTX = - CONVSGL_CTX_BLOCK; 

; B78 0871 ' Get the Buckets for the secondary data area and at least the 

3 HA fh first level of the index 

: rt] Bare Get the bucket for level 0 

; 88 087% CONVSSGET_BUCKET( .KEY_DESC [C KEYSB_DANUM } ); 

: 884 0878 é KEY_DESC C KEYSL_LDVBN J = .CTX C CTXSL_CURRENT_VBN J; 

; ty tty § Get the bucket for level 1 

: 888 0882 2 CTX = .CTX + CTX$K_BLN 

; et Oae7 § CONVSSGET BUCKET ( TKEY. * Desc {C KEYSB_LANUM J] ); 

; 891 0885 2 CTX = .CONVSGL_CTX_BLOCK; 

: 89 0887 3 ! Before we start we need to calcluate the size of the level 0 index record 
3 Boe st34 buffer. This calculation is VERY important it must be very accurate! 
; 896 0890 ; If we allow dup. keys the it becomes complicated 

: 44 4 st : Find out the max. number of duplicates that can fit in this bucket 
; $00 6 9% if .KEY_DESC C KEYS$V_DUPKEYS 

3 +f 4944 THEN 

: 303 O89? : Sizes are different for prologue 3 


ooo 
~~ 


~ 


Wie | 
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>: 913 n't ! The space in the_b yskes minus the key size and the record 
> 9146 9 43 i overhead (262) a ided by the size of the SIDR record 
: Siz B98 } pointer ( 

; 313 911 MAX_NUM_DUP = ( CTX C CTx$w.spc_) - 

3 3i8 aig «KEY_DESC C KEYSB_KEYSZ ]+4))/7 
3 818 Biz ELSE 

: 921 915 ! The space in the bucket minus the key size and the record 
3; 9 ¢ 8319 i overhead (2) divided by the size of the SIDR record 
3 g t 4 pointer (7) 

: 925 319 max _NUM_DUP = ( .CTX C CTX$W_SPC_J - 

, 2 $ 920 ( .KEY_DESC C KEY$B8_KEYSZ ]+2))/7 
; > 0921 

; 928 09 ¢ ELSE 

: 929 09 

: 930 0924 ! The space in _ bucket minus the key size and the record 

3: «931 0925 i overhead (8) divided by the size of the SIDR. record 
: 836 8 $ pointer (6) 

3 934 0928 max _NUM_DUP = ( .CTX C cIxsu spc] - 

; 935 0929 -KEY_DESC C KEYSB_KEYSZ ] +8) )/6 
; 936 0930 ELSE 

s 937 0931 MAX_NUM_DUP = 1; 

; 938 O36 

: 939 093 BEGIN 

; 940 0934 

3: 941 0935 LOCAL BYTES; 

; ate 0936 : 

: ot 3444 ; The size of the level 0 buffer consist of: 

3 945 0939 ! Space for all RRVs (one for each dup) : Lorgest _ - prologue 3, 7 bytes 
: ot Bee ; Overhead : Maximun overhead - prologue 1, 8 byte 

: oy Be We also need a duplicate buffer for things which is the size of the key 
; 950 0944 BYTES = ( .MAX_NUM_DUP * 7) + 8 + .KEY_DESC C KEYSB_KEYSZ ); 

: 2§ 094 ! Allocate the memory for the buffer 

: Bar +744 } The level 0 data record pointers points to this buffer 

: 995 0949 crx { CTX$L_RDP ) = CONVSSGET_TEMP_VM ( .BYTES ); 

: eH Boe, The duplicate buffer is just past that 

: 959 095 CONVSGL_DUP_BUF = .CTX C CTXSL_RDP ] + ( .MAX_NUM_DUP * 7) + 8 

; 960 0954 

: 961 3332 END; 

g 366 28 

3 st 444 : For the secondary key the Data comes from $GET on the RFA RAB 

; 965 959 BEGIN ! RECORD_CTRL local 

3 28 960 

; 96 961 DEF INE_RECORD_CTRL_GLOBAL; 

: 968 966 

3; 969 096 LOCAL 


ay 
| 
| 
| 
| 
| 
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; 97 ALL_NULL, 
; $1 SKIP, 
; 97 STATUS; 
; 97 
3 ore SKIP = _CLEAR; 
3 are 370 RECORD_CTRL = .CTX C CTXSL_RCP J; 
3 44 | a8 ALL_NULL = _SET; ! Could be nothing but null keys, you ‘now... 
; F 974 ! Main record processing loop. The size of the record is returned in 
; 3 1 Bie RFA_RAB ( RABSW_RSZ J 
3 $88 0977 ; WHILE ( STATUS = $GET( RAB=CONVSAB_RFA_RAB ) ) 
; 985 $979 4 BEGIN ! Main Loop 
3 a8 980 4 
; 98 981 4 NULL_BLK: 
; 988 Bt) BEGIN ! NULL_BLK null key value block 
; 989 9 
; 990 0984 LOCAL DUP; 
; (991 0985 
3 pas 4 0986 ! If the record is too short (does not contain the complete key) 
3 pad 94-44 ; } then treat it as a null key 
; 444 34.34 IF ( .CONVSAB_RFA_RAB [ RABSW_RSZ ] - 6 ) LSSU .KEY_DESC C KEYS$B_KEYSZ ] 
; 997 0991 LEAVE NULL_BLK; 
; 998 099 
; 999 099 ! If the file allows null keys check to see if this is one 
; 1000 0994 5§ : 
; 1001 0995 5 IF .KEY_DESC C KEYSV_NULKEYS ] 
3 1908 0 5 THEN 
: 100 0997 5 
3; 1004 0998 5 ! If this is a null key then just ignore this record 
: 1005 0999 5 : 
; 1006 1000 5 IF CONVSS$CHECK_NULL () 
; 1007 1001 5 
: 1008 1906 5 LEAVE NULL_BLK; 
: 1009 100 2 
; 1010 1004 ! 
: Hah 1008 2 If we got a non-null key, then all_null can no longer be true 
; 1918 1007 IF .ALL_NULL THEN ALL_NULL = _CLEAR; 
3 1014 1008 
3; 1015 1009 ! Check to see if this is a duplicate. 
3: 1016 1010 5 ! 
3 1017 1011 DUP = CONVSSCHECK_S_DUP(); 
; 1018 I3i¢ 
3; 1019 101 ! Process the key 
3; 1020 1014 ! 
: 1021 1015 é IF .KEY_DESC C KEYSV_DUPKEYS J 
3; 10 ¢ 1ot¢ THEN 
3; 10 1017 6 BEGIN 
3: 1024 1 18 6 
: 1025 1019 6 ' If this was a dup 
: 1026 1020 6 : 
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IF .DUP 
THEN 
BEGIN 
DUP_COUNT = .DUP_COUNT ¢ 1; 


! If we have exceeded the max number of dups per bucket then 
get rid of this bucket and start a new one 


iF .DUP_COUNT GEQ .MAX_NUM_DUP 
THEN 
BEGIN 
LOAD_DATA_BUCKET(); 
The record to go into the next bucket will be a duplicate 
DUPLICATE = _SET; 
We are now in a continuation bucket 
SKIP = _SET; 


! Copy the key into the record (in a continuation bucket 
there is no dup count ie. the 4) 


CONVSSCOPY_KEY( 4 ); 

: Start counting dups again 
DUP_COUNT = 0; 

Set the sidr array record size 
CTX C CTXSW_RDS J = 0; 


! Set some control fields. NOTE: COPY_KEY sets prologue 3 
} record size field. 


if NOT .CONVS$GB_PROL_V3 
THEN 
BEGIN 


BRE SEAN NAIwiwnonoponopenononon 
_ 


NOMA WN OOO NAME WIN © ODO NE WWIN 3 0 ODNAM EWN SO OONOU Ew 


PUPA MUVITII & & 


A continuation record has no duplicate pointer 


ee em a ed a ed od = od od dd 


COOCCoO 


NNO NOD O00 000000 OO O09090009 00 00 09 00 09 09 6D Cd CD 0D 0D 0D 0D 09 09 0D 0D 0D 00109 CD 09 CD CD 0909 NI NININI NINO OF 


6 ! 

6 RECORD_CTRL C IRCSB_CONTROL ] = IRCSM_NOPTRSZ; 

08 } Prologue 1,2 size field includes a key 

76 RECORD_CTRL C IRC$W_NODUPSZ J] = .KEY_DESC C KEYSB_KEYSZ ] 
7 END 

8 END 

74 END 

75 ELSE 

"6 BEGIN 

?; 


oooo 
Ys] 


FAR ANASSRLERRORTSSE LISP SSeS 


MIPIPPNTN 
DONO ULSWN —OV0One 


a a a kk ke ek a nk a ad a od od td dt 


ee eee eee 
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a ed dd od ed od dd 
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! If this is the first non-dup then don't load anything else 
load the last record processed 


! 
' 
i 
IF NOT .CTX C CTXSV_FST J 
THE 
BEGIN 
LOAD_DATA_BUCKET(); 
The next record will not be a duplicate record 
DUPLICATE = _CLEAR; 
! If we were in a continuatio bucket then dont make an index 
: for it. Also write the bucket because we don't put anything 
in a bucket after a dup. 


if .SKIP 
THEN 


BEGIN 
SKIP = _CLEAR; 


CONVSSWRITE BUCKET(); 
CONVSSINIT_BUCKET(); 


! The next record will aseore fit into the new bucket 
so clearing the continuation flag is ok 


CONTINUATION = _CLEAR 


END 
END; 


Copy the key into the record past the dup count field (ie the 8) 
CONVSSCOPY_KEY( 8 ); 

Start counting the dups 

DUP_COUNT = 0; 

Set the sidr array record size 

CTX C CTX$W_RDS ] = 0; 


! Set some control fields. NOTE: COPY_KEY sets prologue 3 
record size field. 


iF NOT .CONV$GB_PROL_V3 
BEGIN 
} The size of the dup pointer (1=4bytes) 
RECORD_CTRL C IRC$B_CONTROL ] = 1; 
! Jero the field (not implemented) 


93:49:33 ay Bliss-32 V4.0-742 Page (3 | 
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: 11461 1135 : 

3 1106 ye $ RECORD_CTRL C IRCSL_DUPCOUNT J = 0; 

3 | 1 3 Prologue 1,2 size field includes a key 

: 1369 1329 RECORD_CTRL C IRCSW_DUPSZ J] = .KEY_DESC C KEYSB_KEYSZ J 
3 1148 11e6 END 

3 114 114 

3 1150 1144 6 END; 

: 1151 1145 6 

3 43 ¢ 1108 6 ! Add to the size of the dup for this record. 

3; 11 114 8 : 

3 11546 1148 ( IF .CONVS$GB_PROL_V3 
13 1155 1149 7 THEN 

3 1128 1150 7 

3 Ht 4 M2) 4 } A prologue 3 RRV is 7 bytes (1 control,2 1D,4 VBN) 

: 1159 1183 7 RECORD_CTRL C IRCSW_P3SZ ] = .RECORD_CTRL C IRC$W_P3SZ ] + 7 
; 1160 1154 7 

3: 1161 1155 7 ELSE 

3 1308 1156 8 BEGIN 

3; 116 1157 

3 BF 1128 A prologue 1,2 RRV is 6 bytes (1 control,1 1D,4 VBN ) 

3 1166 1160 8 IF .RECORD_CTRL C IRCSV_NOPTRSZ J 

: 1167 1161 8 H 

3; 1168 1168 8 RECORD_CTRL C IRC$W_NODUPSZ J = 

3; 1169 1163 8 -RECORD_CTRL C IRCSW_NODUPSZ J] + 6 
: 1170 1164 8 LSE 

3 1171 1165 8 RECORD_CTRL C IRC$W_DUPSZ ] = 

3 1106 1166 8 -RECORD_CTRL C IRC$W_DUPSZ ] + 6 
3 117 1167 7 END ) 

3 1174 1168 7 

3: 1175 1169 6 END 

3; 1176 1170 5 ELSE 

3 1177 1171 6 BEGIN 

: 1178 1156 6 

3; 1179 1175 6 ! If the keys are duplicate and we are not allowing dup. then error 
3; 1180 1174 6 } 

3; 1181 1175 6 IF .DUP 

: HB 1176 6 THEN 

3; 118 1177 6 SIGNAL_STOP( CONV$_LOADIDX, 

; ies 1178 6 ° 

3: 1185 1179 6 -KEY_DESC C KEYSB_KEYREF J, 

3; 1186 1180 6 RMS$_DUP ); 

: 1187 1181 6 3; 

; 1188 1186 6 ! If this is the first record don't load anything else load the 
; 1189 11 6 ' Last record 

3: 1190 1184 6 ’ 

3 1191 1185 6 IF NOT .CTX C CTX$V_FST J 

: 1136 1186 6 TH 

3 119 HB 4 6 LOAD_DATA_BUCKET(); 

3 1196 1188 6 

3; 1195 1189 6 ! Move the key value 

3: 1196 1190 6 : 

3 1197 1191 6 CONVSSCOPY_KEY( 4 ); 


V4.0=742 
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1139 138 Set the sidr array record size 
4! 133 CTX C CTX$W_RDS J = 0; 
0 199 ! Set some control fields. NOTE: COPY_KEY sets prologue 3 record 
Be 138 size field NOT counting the pointer so we must add it here 
54 4 if . CONVSGB_PROL_V3 
: : ase C IRC$W_P3SZ ] = .RECORD_CTRL C IRC$W_P3SZ2 J] + 7 
; Be BEGIN 
; 8 ; Non dup records don't have a dup count 
; $ RECORD_CTRL C IRCSB_CONTROL J] = IRCSM_NOPTRSZ; 
$i 5 RECORD_CTRL C IRCSW_NODUPSZ ] = .KEY_DESC C KEYS$B_KEYSZ J] + 6 
5 END 
END; 


Load the SIDR array pointer 

BEGIN ! SIDR local 

DEF INE_VBN_ID_GLOBAL; 

LOCAL SIDR : REF BLOCK C ,BYTE J; 

Convert the VBN and the ID that SORT returns in the file 
CONVSSCONVERT_VBN_ID(); 

Move the record pointer right after the last one, if any 
SIDR = .CTX C CTXSL_RDP J] + .CTX C CTX$W_RDS J; 

If prologue 3 the ID is bigger 

IF .CONV$GB_PROL_V3 


ere 5 + pad ten tye ery ph + 4d da git arg dar = 

FW 9 OBNAUE WIN —$ O OBNOU EWN “OOD OVNOUESWN0O0@ 
a a ee ae a ed cae ae ee a ee a a cc ee a ee ee ee ee el el ce ec el ee ee ee ee eed ed ee eee ed 
NNN NSS NSN NAA AAA AAA AAA AAA AEA AA MN NN NN NN NINA AAAAAAAOCAOAO 


ee a ee ee ec ee ee a ee ed ed ae ed ed 


PIRI PININIANINYININININININININININYPIPINPYNINPINIPPo fy nono nononononofnorony 


THEN 

BEGIN 
as Set the first_key flag if necessary 
46 if .DUP 
4 THEN 
vt ~ _ sien C 0,0,8,0 ] = 2 ' Can't be first if dup 
29 SIDR C 0,0,8,0 ] = 2 + IRCSM_FIRST_KEY; ! Set flag and size 
5 SIDR C 1,0,16,.0 ] = .SORT_ID; 
2g SIDR . $°6°39 0 = .SORT-VBN; 
54 CTX C CTXSW_ROS } = (CTX C CTkSW_RDS ] + 7 
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Spicenttiets 


LOAD_ SECONDARY 


1249 7 END 

1250 § ELSE 

1251 BEGIN 

1 ¢ 7 SIDR C 0,0, 8 :; =2 

1 7 SIDR { 1.0, «SORT. 10; 

1254 7 SIDR_C 2,0,32,0 }= SORT. VBN; 

1055 7 CTX C CTXSW_ROS J = :CTX ’ CTX$W_RDS ] + 6 

1 2$ 7 END 

1257 7 

: 28 END; ! SIDR local 

! $9 If we are here then we have processed at least one non null record 
6 CTX C CTX$SV_FST J = _CLEAR; 

1264 ! If this is a non dup key then copy the current record into 
: Be dup buffer 

: 44 if NOT .DUP 

1269 CHSMOVE( .KEY_DESC C KEYSB KEYSZ Je 

1270 5 -CONVSGL_RFA_BUFFER + 6, 

: f : > CONVSGL ~ _DUP “BUF ) 

1378 5 END ! NULL_BLK null key value block 
\¢?? END; ! Main loop 

1277 : If we exited because of end of file AND we got at least 1 
1s78 non-null key value, then finish off the index 

1280 if STATUS EQL RMSS_EOF AND NOT .ALL_NULL 

1281 THE 

1e8¢ 4 BEGIN 

1283 4 ; 

1284 4 : There is a SIDR record left over at this point 
‘see ? We must load it in before we finish off the index 
1287 4 LOAD_DATA_BUCKET(); 

1288 4 

1289 4 FINISH_INDEX() 

1290 4 

1291 END; 

1936 

129 RETURN 

1294 

1295 END ! RECORD_CTRL local 

1399 


~o 
~ 
_ 


250 L1:1025 Spit 
renced LOCAL symbol DUP_COUNT is probably not initialized 


-EXTRN SYSSGET 
O1FC «8F BB 00000 CONVSSLOAD_SECONDARY: : 
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| VAX=11 CONVERT 18-Sep-1986 0-742 3 
ied Hf Med LOAD. SECONDARY Fee tes rat ett OM ta Se Se 
a one R3,R4,R5,R6,R7,R8> : 0794 
SE 146 €2 000 SUBL eae 
NUATION : 
0006 cF o000spoRG SF BC 2097 MOVE —-FCONVSCURITEERR, CONVSAB_OUT_RAB+24 + 0865 
mee $a ONPoaaa CE BO Boone = Ra, onvser Ctx BLutae tt on 
: : 00086 a 8019 BSBW ONVSSGET BUCKET pate | 
= = eM 00 $055 mie | SatniOs cee eee ; 0882 
ae 39 AB 4 8 9 MOVZBL 7(KEY_DESC), (SP) ; 0883 | 
00086 30 90050 pseu CONVSSGET _BUCKET : | | 
of as ee s 299 out fectaet Ht: nae CTX : O38. | | 
$$ ooode CF F9 ao08¢ BLB¢ ssi nvSGB PR rac? 33 : 0899 | 
7 " $8 2A Pf ey titre MOVZWL 4 tcTR) : 0912 
51 14 AB 9A OO04GA MOVZBL go (KEY. best). R1 : 
50 oF 2b booce suas ROM = 
50 du £5 doost sets oa! RO : o9tt, 
0€ 11 00054 BRB 2s" : 0912 
50 2h AA 3C 00056 1$:  — MOVZWL_«&2(CTXD, | 
51 14 AB 9A Benen war f 2 1 KES SESO). : | 
50 51 ¢ panes 
: Ons ee sy 
50 2A MA xe 000g 3$: MOVZWL 42(CTX), 80 : 0929 | 
51 14 AB 9A tie uae gy (KEY DESC). R1 : 
38 jaf ; ; #8. RO : 0928 
ee et eee ee oe 
6E 01 DO O007E 4S: OvL , MAX_NUM_DUP : 0931 
51 6E 07 PS o00BT $8; MULLS 47" * MAX SNUACDUP RI : | 
Sao BER Buk USHA ait pe 
00806 yi 00095 oe SOV ESCES TEP : 
SE 04 CO : 
RO, 52(CTX) 
eR BB Rte RS BS Hern va 
” 0000" CF 08 AO SE 0009F HOVAB (RO), Conv$Gi_buP_BuF F ies 
gM Bt Bie aecm.cin Be 
mice 00006 o o? itd 6$: PUSHAB CONVSAB-RFA_RAB ; 097 | 
0000006 00 1 FB 000B4 CALLS #1, SYSSGET | 
~ & ow BAe BE Mil | 
0 10 AE , 
R 5$ 
50 00006 “tr i SOce 7: Rov. CONVSAB_RFA_RAB+34, RO : 0989 
3B 8 3 8 te CMPZV + ¥ yy 20(KEY DESC), RO : 
ee THB ccgy oes, a8 es | 
- = woke 5D boobs BSBW © CONVSSCHECR_NULL : 1000 
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| CONVSFSTLD VAX=11 CONVERT 15-Sep-1984 23:49:35 AX-11 Bliss-32 v4.0-742 
v04-000 LOAD_ SECONDARY 14-Sep-1984 12:14:00 CONV. SRCJCONVFSTLD.B32;1 
F 50 £8 000D BLBS ~=_-RO, ~6$ 
§ 08 AE 33 I 8$: BLBC  ALL_NULL, 9$ 
A bs OED CLRL ALL-NULL 
009 G 30 000EB 9$: BSBW  CONV$S$CHECK_S_DUP 
; 08 OOEB MOVL RO, DUP 
D 10 AB E OE BLBC 16(KEY_DESC), 13$ 
52 €9 O00F BLBC ~—- UP, 1 
OC AE D6 OF INCL § DUP_COUNT 
bE OC AE D1 000F CMPL DUB-COUNT, MAX_NUM_DUP 
62 19 OO0OFC BLSS ss 
0000v 30 OOOFE BSBW _LOAD_DATA_BUCKET 
0000" CF 1 30 O19) MOVB #1, BUPLITATE 
04 AE 1 D0 00106 MOVL #1. SKIP 
4 bp 0010A PUSHL # 
00006 30 0010¢ SBW_ = CONVSSCOPY_KEY 
SE 04 CO 90108 ADDL2 SP 
oc AE D4 Orie CLRL  DUP_COUNT 
A AA B64 0011 CLRW (CTX) 
43 00006 CF £8 00118 BL8S § CONV$GB_PROL_V3, 12$ 
éR 10 90 00110 OVB #16, (RECORD-CTRL) 
02 AB 14 AB 98 a0158 MOVZBW e0<KEY DESC)> 2(RECORD_CTRL) 
18 6A +. $61 7 10$:  BLBS (CTX), 118 
0000v 30 0012A BSBW LOAD_DATA_BUCKET 
0000" CF 94 00120 CLRB «DUPLICATE 
0D 04 E9 00131 BLBC SKIP, 11$ 
04 AE D4 00135 CLRL SKIP 
00006 30 00138 BSBW CONVS$$WRITE BUCKET 
00006 30 00138 BSBW CONVSSINIT BUCKET 
0000' CF 94 0013E CLRB CONTINUATION 
08 po 00142 118: PUSHL # 
se 10Ne” e0 bola? as eee 
OC AE D4 0014A CLRL DUP COUNT 
3A AA B4 00140 CLRW 58(TTX) 
4C 00006 CF £8 00150 BLBS §§ CONV$GB_PROL_V3, 16$ 
68 01 90 00155 MOVB #1, (RECORD CTRL) 
02 AB D4 00158 LRL g (RECORD CTRL) 
06 a8 14 AB 98 00158 MOVZBW 20(KEY DESC), 6(RECORD_CTRL) 
3C 0000G CF €E8 00160 12$: BLBS CONV$GB_PROL_v3, 
45 68 04 €E0 00165 BBS #4, (RECORD CTRL), 18$ 
06 AB 06 A 00169 ADDW2 #6 6(RECORD_CTRLS 
19 52 €9 0016f 13$: BLBC DUP, 14$ 
000184EC BF DD 001 : PUSHL #99564 
7E 15 AB 9A 9017 MOVZBL 21(KEY_DESC), -(SP) 
1 DD 0017C PUSHL # 
000000006 8F DD 0017 PUSHL #CONV$_LOADIDX 
000000006 00 04 i a8 ee CALLS a x Ess TOP 
0000v 5 01 F BSBW LOAD_BATA_BUCKET 
04 p 0191 15$ PUSHL #4 
00006 0195 SBW  CONVSSCOPY_KEY 
SE 04 CO 00196 ADDL2 #4, SP 
05 o0ddc tr £9 O18 ie oe 
68 AO OO1A1 168: ADDW2 nn (RECORD_CTRL) 


os es 


bo oooo 
Fuw When 


NNOf Ovew 


et 
-  - OOO COCOoOoCOooOooO 
"DOC OC OCWBOOWNAQAUM 
WO —- OOM 0ou—Ooo0 ou" 


ee ee ee ee ee ee ey 
a a a ee 
SINAN EOD SS SPWwwinon 
NONVIDODODOSNMA—~A 


—-— 
-— 
Sele To] 
NM! 


Pe Se Se Se Se Se Se Se Se Se Se Ge Ge Se Se Ge Ge Fe Fe Se Ge Ge Ge Ge Be Ge Ge Fe Se Se Ge Se Ge Se Se Ge Ge Be Ge Se Se Be Se Be Se Se Se Se Se Fe Se Se Se Se Se Be Be 


re F 


=32 V4.0-742 
NVFSTLD.B32;1 
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vo 
— nu 
a | 
cae @ A 
wv t f.<] 
ft a a 
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fe 4 ea ~ 
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vo N i) . 
awe ft ™N Qo ~o 
ae Js2 ~ ~ WA a 
aw~acqgm . “az a“ -u> om . 
—we- > ~ za ea euZz w wn 
w w ft > ane a= 20 @® Bw 4 ae 
t's: aa i ~=w ah fd av Mm RMU > 
a-acgaanw aww mw ~ 2m Oo ODx w 
Qevecw-O ahem ~NeA ve o wnagaw « 
OMmwo>rzenonec -. oe KX A Yus O&O {=} . 
YVwWwuoZw a.mUchcrcmhC(<C YH —_—- « —“~ wee 8 <2 /- 
wowos+: MQ ~~ *ZvY a *ZvxRa © ae 
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weer ~~ CO 1 tnrw~ 1 Hw WRDO FD 2H « 
Tt Swwu> + Nee aalLand —<> - oO sv 
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544 bytes, Routine Base: 


: Routine Size: 
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C FSTLD VAX=11 CONVERT 1$-5e -1984 7:49:35 AX-11 Bliss-32 V4.0-742 Page 34 
you~000 LOAD_DATA_BUCKET 127808- 1382 $3: 42:38 CONV. SRCICONVFSTLD.832;1 ° ab 
5 9 ZSBTTL ‘LOAD _DATA_BUCKET’ 
8 44 ROUTINE LOAD_BATA_BUCKET : CLSJSB_REG_8 NOVALUE = 
0 1 i 
5 Functional Description: 
04 Loads a data bucket wenreeneent of key of reference in the 
05 index. On a call to LOAD_DATA_BUCKET a record is loaded into a bucket 
Be and return. If the record for some reason does not fit into the current 
bucket an index is made for the bucket and bucket is written to the 
8 output file. The written bucket is initialized and then loaded with 
9 original record. The index for a bucket is made by calling 


the 
LOAD_INDEX_BUCKET. 
Calling Sequence: 


See ee eee eee ee 
WN — SO OONOUS WN “OVO SWN"O0O@W 


.? 1 1 

3 1 1 1 

3 1 1 1 

3 1 1 1! 

3 3 1 1! 

3 1 1 1! 

3 1 1 1! 

3 1 1 1! 

: 1 1 1! 

3 7 1307 1! 

3 7 1308 1! 

3 7 1309 1! 

3 1 1310 1! 

: 1 eo) ie i: 

3; 7 1 \¢ 2. 

3: 1 1315 1! 

:1 1314 1/3 LOAD_DATA_BUCKET(); 
3 1 1315 1! 

3 1 1316 1 ! Input Parameters: 

3 13 131 FF none 

; 3 1319 i Implicit I 

3 ' Implic nputs: 

13 1320 1 i . 

3; 13 1321 1 ! Output Parameters: 

3; 13 1356 4 none 

13 135¢ 1 i Implicit out 

3 ! Implic utputs: 

3 15 1325 1! none 

3 13 1326 1! 

3; 13 1327 1 ! Routine Value: 

3 1335 1328 1! 

3; 1336 1329 1! SSSNORMAL or error codes 
: 1337 1330 1! 

3; 1338 1331 1 ! Routines Called: 

3; 1339 1336 1! 

3; 1340 1335 1! CONVSSGET_BUCKET 

3 1341 1334 1! LOAD_INDER_BUCKET 

3 16 1335 1! CONVSSSAVE- BUCKET 

3 134 1336 1! CONVSSWRITE_ BUCKET 
3: 1344 usr 63 3 VSSINIT E 

3 1345 1338 1! CONVSSRESTORE BUCKET 
3 1368 1339 1! CONVSSCOMPRE 

3 134 1340 1! CONVSSMAKE_]I 

3: 1348 136) 1! CONVSSWRITE_VBN 

: 1349 1 ny OB pee 

; 1350 1345 1 ! Side Effects: 

3; 1351 1344 1! " : : 
3 1352 1345 1! Loads a record into a bucket. Writes buckets and creates indexs 
3; 1353 1346 1! for lower level buckets 
3 1354 1347 1! 

3; 1355 1348 1 !<- 

3: 1356 1349 1 

3; 1357 1350 BEGIN 

3; 1358 132! 

3; 1359 1 26 DEF INE_CTX; 

: 1360 135 DEF INE_BUCKET; 

+ 1361 1354 DEF INE~KEY_DESC; 


AX-11 
CONV.S 


ou 
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VAX=11_ CONVERT 15-Sep-1984 23:49:3 
LOAD_DATA_BUCKET 14-Sep-1984 12:14: 


1355 DEF INE_RECORD_CTRL; 
Set the bucket pointer to the bucket at this level 
BUCKET = .CTX C CTXSL_CURRENT_BUFFER ); 


Will the record fit into the bucket, if not then call this thing 
with an index to the record. 


id | 


A record will not fit into a bucket if: 
For all files: 


PAARAASAO 
we -—o 


a) the combined record data size and record control size is greater then 
the space availaible in the bucket. 


' 

i 

i 

i 

i 

i 

i 

i 

i 

i 

: b) the FILL switch is OFF and the space left in the bucket is less then 
that allowed by bucket fill quanities 

' 
i 
i 
i 
i 
I 


For prologue 1 & 2 files: 


iw 
CoCo 


c) the record ID of the new record is 0 indicating that the bucket is 
filled (as far as id are concerned) 


F ( ( ( .CTX C CTXS$W_RDS J + .CTX C CTXSW_RCS J] ) GTRU 
CTX C CTX$W_SPC ) ) 
OR 
( IF CONVSGB_PROL_V3 
ELSE .BUCKET C BKTSB_NXTRECID ] EQLU 0 ) 
OR 
( ( NOT .CONVSGL_FILL ) AND 


WAIN 
OOOO 


NEAR 


WAI 
WAAL AANA AMAA AAA AANA AANA WWIII 


ee ce ee ec ed ed ee ed ee ed ee ee a a ee ed ee a ce ee a ee ce ee ee ee ce ce a ee ee ed ee de ed ed edd 
OOOO O0 OO O00 009090909 09 09 08 INI NN NINN NNO OO 


SP ANAAAA NADI AAA DIATE AN ES BE AINE EB PROPIPIPONINUNONUPOPOPIPONININUNONOPoNoMononononyd 


ee ee mt me ee a ee ed ed ed = wd wd wd od 


7 ( LOCAL 
98 SPACE_USED_IF_RECORD ADDED; | 
399 SPACE_USED_IF_RECORD_ADDED = .CTXCCTX$W_USE] + .CTXCCTX$W_RCS) | 
400 + ,CTXCCTXS$W_RDSJ; , 
401 IF .KEY_DESCCKEYSW_DATFILL] - .CTXCCTX$W_USEJ ! If the difference now 
108 - (must be signed) 
40 «SPACE _USED_IF_RECORD_ADDED - .KEY_DESCCKEYSW_DATFILL] ! is Less than it would 
404 THEN ' be if the record were added, 
405 TRUE ' then don't add it 
406 ELSE ' else . 
407 400 FALSE : go ahead and add it 
408 401 ») 
409 4 ; 
410 4 THEN 
rh : ¢ BEGIN ! Load index block 
418 406 ! If for some reason we dont want to make an index entry for this 
414 407 ! record then skip it. 
415 408 : 
416 409 IF NOT .CONTINUATION 
417 410 THEN 
418 411 BEGIN 


ONVSFSTLD VAX=-11 CONVERT te 8 igi ne ken pap POF Pp 6 
- -Sep- 249: ~ ss- age 

v04 LOAD_DATA_BUCKET 12-8 08=18e 93:42:30 CONV.SRCICONVFS ; . (BS 

Increse the level number for the next index level 

CTX = .CTX + CTXSK_BLN; 

} Call to LOAD_INDEX_ BUCKET to load the next level of the index 

LOAD_INDEX_BUCKET(); 

} Return the level 

CTX = .CTX = CTX$K_BLN; 


' Restore the bucket pointer to the current level bucket since 
we should be looking at some other one. 


BUCKET = .CTX C CTXSL_CURRENT_BUFFER J 
END; 
Write the bucket we filled 
CONVSSWRITE_BUCKET(); 
If this is a dup then the next bucket is a continuation bucket 
IF .DUPLICATE 
ne CONTINUATION = _SET 
CONTINUATION = _CLEAR; 
Initialize the bucket to use it again 
CONVSSINIT_BUCKET() 
END; ! Load index block 
BEGIN ! BKT_*_PTR local 
' Load the record into the bucket... 


! First we must set up pointers to where the record will go in the bucket 
These are: 


PAA AAUIMNVIN & BBE EEE EE PW 
PME WN OS OD NAUE WN $9 OONAUE WN (OOD NAMEN (OVO ONOULS WT 


On —_ 
SRO VSS STS SFR TS SSS VFN SSaNG AP Uv ro Se OR NS SOOO Oe 


LOCAL 
BKT_CTRL_PTR,  ! Control information 
BKT_DATA_PTR; ! Actual data record 


} For Prologue 3 files... 

if .CONVSGB_PROL_v3 

THEN 

BEGIN 

: If key compression is on do it 
if .KEY_DESC C KEYSV_KEY_COMPR ] 


PAA QQ’ DAMM sr & BB BEE EEE AWWA NAINA PPP PINININYNYDY 2 2 SO Oe 


MEW Oo 0ean 


FP oy oy oy ot ot at nt nl nt et tet tel te et eh el eh a te el eh eh ek te et 
o 


ee ee a a a ee ee ee a ee ee ee ee ee a a ee a a a a a ed dd 
yay at at at nt at at et tt et ee ee ek 


De eee eee ye ww a a at at ot ot et et et et et et et et et et et 
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+ 
° 
° 
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. 
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CONVSFSTLD VAX=-11 CONVERT 18-Sep-19 4 $3149: 5 Ax-11 BL 
v04 214 


$$*32 V4.0-742 
LOAD_DATA_BUCKET 14-Sep-1984 V ; 


i 
:00 CONV. SRCIJCONVF STLD.832;1 


3 1678 1469 4 THEN 

3 147 1470 4 CONVSSCOMPRESS_KEY(); 

: 1295 1272 ' Key of ref ific thi 

3 ' Key of ref. specific things 

: 1480 1298 ‘Fane . 

3 1481 1474 & IF .KEY_DESC C KEYSB_KEYREF J EQL 0 

3 14 ¢ 1475 4 THEN 

3 14 1o78 4 

> 1484 1477 & ! The Primary key... 

3: 1485 lor 4 : 

> 1486 147 BEGIN 

> 1487 1480 

3 1488 1481 ! The record ID 

3 1489 14 g ! 

3 so09 \ee? : RECORD_CTRL C IRC$W_ID ] = .BUCKET C BKTSW_NXTRECID J; 

r 1438 1382 : The RRV points to it's self ie. it’s own ID and VBN 

3 1494 1487 5 RECOPD_CTRL IRC$SW_RRV_ID J = .BUCKET C BKTSW_NXTRECID J; 
; 1633 be 2 RECORD_CTRL C IRCS$L_RRV_VBNS J = .CTX C CTXSL_CURRENT_VBN J; 
3 yes 4 1e30 2 Update the record next record id in the bucket 

: 1499 1498 5 BUCKET C BKTSW_NXTRECID ] = .BUCKET C BKTSW_NXTRECID J] + 1 
; 1500 1493 5 

3 1501 1494 5 END 

3 1208 1495 4 END 

3; 150 1496 ; ELSE 

3: 1504 1497 

3; 1505 1498 3 ! For prologue 1 and 2 files... 

3: 1506 1499 3 : 

3; 1507 1500 4 BEGIN 

3; 1508 1501 4 

3; 1509 1208 4 ! The record ID 

3 1510 1503 4 ! 

: ae 1208 2 RECORD_CTRL C IRC$B_ID J] = .BUCKET C BKTSB_NXTRECID ]; 

3 1318 1206 2 : If this is the primary data level the set up the RRV 

3 1515 1508 4 IF .KEY_DESC C KEYSB_KEYREF J EQL 0 

3 1516 1509 4 THEN 

3 1517 1510 5 BEGIN 

3: 1518 1511 § : 

: 3h 4 1318 : : The RRV points to itself ie. it's own ID and VBN 

3 1234 1514 5§ RECORD_CTRL C IRCSB_RRV_ID J] = .BUCKET C BKTSB_NXTRECID J; 
: 1328 1315 3 RECORD-CTRL C IRCSLIRRVIVBN ) = .CTX C CTXS$L_CORRENT_VBN 3 
3 1384 1319 4 END; 

3 1525 1218 4 ‘uf 

3 1368 131) : Update the next record id in the bucket 

; 1368 1 1 ° BUCKET C BKTSB_NXTRECID J] = .BUCKET C BKTSB_NXTRECID ] + 1 

3 1380 15 : END; 

3; 1531 1524 

3; 1532 1525 ' For all data levels the control bytes are put at the bucket 


-—_- 
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C FSTLD VAK=-11 CONVERT 18-56 -1984 23:49:35 AX-11 Bliss-32 V4.0-742 Pa 8 
Gee b08 LOAD_DATA_BUCKET 12-808-198e 13:42:00 CONV. SRCICONVFSTLD.B32;1 ™ (BS 
3 H freespace. The data bytes are put directly after the control. 
5 BKT_CTRL_PTR = .BUCKET C BKTSW_FREESPACE 


CTRL. 2 ag eusKet: 
BKT“DATA-PTR = .BKT_CTRL_PTR *~.CTX C CTXSW_RCS J; 


Update the bucket pointer (NOTE: Same update for all cases) 
BUCKET C BKTSW_FREESPACE ] = .BUCKET C BKTSW_FREESPACE J + 
~CTX C CTX$W_RCS : + 
-CTX C CTX$SW_RDS J; 


' Load the record into the bucket... 
Move the control bytes into the bucket 


CHSMOVE( .CTX C CTXSW_RCS J,.CTX C CTXSL_RCP J,.8KT_CTRL_PTR ); 
} Move the data bytes (or sidr array) into the bucket 
CHSMOVE( .CTX C CTX$W_RDS J,.CTX C CTXSL_RDP J,.BKT_DATA_PTR ); 


: 
: 


BRERA EE EE PMN wmrrnornrn 


WN 9 OD NAUE WN © ODNOUES WN 0 OBNOA NEW SOO ENOAU EWN "OOOO 


Update the amount of space left in the bucket and the amount used 
BEGIN 


LOCAL 
SPACE _USED; 


DUD PUPP SVSVISISISISIST TIT 
AAPA VMMINVIVIVINVIVIE SEER LL ESE 


SPACE_USED = .CTX C CTX$W_RCS ] + .CTX C CTXSW_RDS J; 


WN SO OCONO VUE WN "OO OBNOUS WH OOM 


Be Se Se Ge Se Ge Fe Ge Ge Ge Se Se He Se Fe Se Fe Se Se Se Ge Se Ge Se Be Se Se Se Se Se Se Se Ge Se Ge Se Se Se Se Se See. CH Se Ss SH See 
me ee et ek a a a nd td nd oS ws = 2 I 
aa a a a ak a at at tt st 2a — 2 —  — = — as =) as © 2 > os ss 


55 
55 
55 
55 
55 
3 32 
264 23 CTX C CTX$W_SPC J = .CTX C CTX$W_SPC J] - .SPACE_USED; 
208 22 CT™X C CTX$SW_USE J] = .CTX C CTX$W_USE ] + .SPACE_USED; 
568 56 END; 
569 56 
359 22 } Make an index for the next level 
37¢ 36 CONVSSMAKE_INDEX(); 
2re a Set the index record control bytes and bucket pointer 
76 56 CONVS$WRITE_VBN(); 
57 57 
578 57 RETURN 
579 57 
580 57 END; 


007C 8F 8B 00000 LOAD_DATA BUCKET: 
POSHR 


#°M<R2,R3.R4,R5,RO> : 1299 
59 4 AA DO 00004 MOVL  4(CTX), BUCKET : 1359. 
50 A AA 3C 00008 MOVZWL S8(CTXS, R 21 


re 
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: Routine Size: 


259 bytes, 


: 
a aA 
C AA 


Routine Base: 


MOVZWL 
MOVZWL 


1 Ms 19 

1a-Sep- ts a 
Roe i is 
a i Hes 
2 a0 QOOF4 
00006 Hi OOF8 
core PB 8 BRE 
HGS 
_CONVSFAST_S + 0458 


235 AX-11 Bliss-32 v4.0-742 
:00 YCONV. SRCICONVESTLD.B32;1 
gccTK), SPACE_USED 
(CTX), RI 

Ri, SPACE” USED 

SPACE_USEB, oeccTx) 

SPACE-USED, 44(CTX) 

CONVSSMAKE INDEX 

pouvaswn tte VBN 

#°M<R2 RZ,RS5,RO> 


———— eNO eee 
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3 3 ¢ 1576 1 2SBTTL ‘LOAD_INDEX BUCKET’ 

3 ; ! ? } ROUTINE LOAD_INDEX_BUCKET : CL$JSB_REG_9 NOVALUE = 

; 1585 1 Me 1! 

3 1 1 4 1 ! Functional Description: 

3 1 44 1579 1! 

3 1 1580 1! Loads an index bucket independent level in the index. Ona 

; 1589 1581 1! call to LOAD_INDEX_BUCKET a record is loaded into a bucket and 

; 1590 1256 1 ! return. If the record for some reason does not fit into the current 
3; 1591 1585 1! bucket an index is made for the bucket and the bucket is written to the 
$ 1238 1584 1! output file. The written bucket is initialized and then loaded with 
; 159 1585 1! the original record. The index for a bucket is made by got ling 
3 1594 1586 1! LOAD_INDEX_ BUCKET recursivly. Each recursive call to LOAD_INDEX_BUCKET 
; 1595 1587 1! is to hie up the index tree. CTX keeps track to where you are in 
3; 1596 1588 1! the tree. Most all variables are dependent on CTX so that the 

3; 1597 1589 1! context of each level is saved. 

3; 1598 1590 1! 

; 1599 1591 1! Calling Sequence: 

; 1600 1236 1! 

3; 1601 1993 1! LOAD_INDEX_BUCKET() 

3 1006 1954 1°! 

; 160 1595 1 ! Input Parameters: 

3 1604 1596 1! none 

: 1605 1597 1! 

3; 1606 1598 1! Implicit Inputs: 

3; 1607 1599 1! none 

; 1608 1600 1! 

3; 1609 1601 1 ! Output Parameters: 

3; 1610 19 1! 

3; 1611 1603 1! 

: oF 4 1606 1 ! Implicit Outputs: 

3; 161 1605 1! none 

3 1614 1606 1! 

3 1615 1607 1 ! Routine Value: 

3; 1616 1608 1! 

3 1617 1609 1! SSSNORMAL or error codes 

3; 1618 1610 1! 

3: 1619 1611 1 ! Routines Called: 

3; 1620 lol¢ 1! 

: 1621 161 1! CONVS$GET_ BUCKET ; 

3: 1622 1614 1! LOAD_INDER_BUCKET - Recursive call 

: 1963 1615 1! CONVSS$WRITE BUCKET 

3 1624 1616 1! CONVSSINIT_BUCKE 

3 1o¢? 1617 1! CONVSSCOMPRESS INDEX 

: 1626 1618 1! CONVS$$WRITE_VBN 

3: 1627 wily =F. 

: 1628 1959 1! Side Effects: 

3: 1629 1621 1! : / : 

3; 1630 1oce 1! Loads a record into a bucket. Writes buckets and creates indexs 
3: 1631 16 1! for lower level buckets 

: 1036 1624 1! 

3; 163 1625 1 !-- 

3: 1634 1626 1 

3; 1635 1627 BEGIN 

3 1036 1628 

; 163 166) DEF INE_CTX; 

: 1638 1630 DEF INE_BUCKET; 


ss- 742 P 4 
CON Ss 32; ~ (5 


then 


If the difference now 
(must be signed) 


' is less than it would 

' be if the record were added, 
: nee don't add it 

' else 


go ahead and add it 
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CONVSFSTLD VAX=-11 CONVERT 1b-se -1984 23:49:35 Ax-11 BLi 
Rivets LOAD_INDEX_BUCKET 12-808- 1 9be 93:92:30 CONV.SRCJ 
; 1639 1631 DEF INE_KEY_DESC; 

; 1640 16 ¢ 

: ek 12 ? } Set the bucket pointer to the bucket at this level 

3 1648 1° 5 BUCKET = .CTX C CTXSL_CURRENT_BUFFER J; 

3; 1645 16 5 ' See if we have reached the maximun level. (If we have this is the 

3 1on8 19 : biggest file in the world!) 

3 1648 1640 IF .CTX C CTX$B_LEVEL J GEQU MAX_IDX_LVL = 1 

3; 1649 1641 THEN 

; 1939 1966 SIGNAL_STOP( CONVS_IDX_LIM ); 

3 1936 1644 ! Will the record fit into the bucket, if not then call this thing 

; 165 1645 ! with an index to the record. 

3 1654 1646 : 

3; 1655 1647 ' A record will not fit into a bucket if: 

3; 1656 1648 ! 

3; 1657 1649 ' for all files: 

3; 1658 1650 ! 

; 1659 1651 2 ' a) the combined record data size and record control size is greater 
; 190 1636 } the space availaible in the bucket. 

3 1oe6 1654 ! b) the FILL switch is OFF and the space left in the bucket is less then 
3; 166 1655 } that allowed by bucket fill quanities 

3: 1664 1656 § ' 

3; 1665 1657 ! for prologue 3 files: 

3 1666 1658 § : 

3 1667 1659 ' ¢) the bucket below has a different size vbn then this bucket (this 
3 1o08 1o09 § } is to keep the same size vbn index buckets) 

3 1670 1662 4 IF ( ( ( CTX C CTXSW_RDS J + .CTX C CTX$W_RCS J ) GTRU 

3: 1671 1663 4 CTX C CTX$W_SPC J ) 
; 1076 1664 ; OR 

3; 167 1665 

3 1674 1666 4 ( ( NOT .CONVSGL_FILL ) AND 

3; 1675 1667 5 ( LOCAL 

3; 1676 1668 5 SPACE_USED_IF _RECORD_ADDED; 

: 1677 1669 5 SPACE_USEB_IF_RECORD_ADDED = .CTXCCTX$W id: + .CTXCCTX$W_RCS) 
: 1678 1670 5 + ,CTXCCTX$W_RDS); 

3 Hy 34 197) 2 IF .KEY_DESCCKEYSW_IDXFILL] - .CTXCCTX$W_USEJ 
: 1681 1898 5 -SPACE_USED_IF _RECORD_ADDED - .KEY_DESCCKEYSW_IDXFILLI ' 
3; 168 1674 THE ; 
: 168 1675 UE ; 
> 1684 1676 ELSE : 
3 Hb eH 197 ? FALSE ' 
: 1889 1879 

3; 1688 1680 ; OR 

3; 1689 1681 

; 1690 1086 4 ( IF .CONV$GB_PROL_V3 

: 1691 168 4 T 

: 5 94 1684 5 ( LOCAL CTX_M1 : REF BLOCK C ,BYTE J; 

3: 169 1685 CTX_M1 = CTX = CTX$K_BLN; 

3 1694 1686 IF [BUCKET C BKT$V_PTR_SZ ] NEQU .CTX_M1 C CTX$V_VBN ] 

3; 1695 1687 THEN 1 


i 
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183 168 ELSE 0 
169 1890 THEN ELSE 0) ) 
36 BEGIN ! Load index block 
Switch for the next index Level 
3 
| 


Page 43 
. (9) 


— 
oa 
oO 


SFESLSSS 


CTX = .CTX + CTXSK_BLN; 

: See if the bucket in at the next level is ready if not get it ready 
iF NOT .CTX C CTX$V_RDY 

THEN 


oo 


nN Ie 


MEWN SO DONOUSWN —“OOOnNOUEWN OOM 


} Get the space for the bucket 
CONVSSGET_BUSKET( .KEY_DESC C KEYSB_IANUM J ); 
Recursive call to LOAD_INDEX_BUCKET to load the next level of the index 
LOAD_INDEX_BUCKET(); 
} Return the level 
CTX = .CTX = CTXS$K_BLN; 


! Restore the bucket pointer to the current level bucket since 
we should be looking at some other one. 


BUCKET = .CTX C CTXSL_CURRENT_BUFFER J; 
} Write the bucket we filled 
CONVSSWRITE_BUCKET(); 
Initialize the bucket to use it again 
CONVSSINIT_BUCKET() 
END; ! Load index block 
BEGIN ! CTX_P1 Local 
LOCAL CTX_P1 : REF BLOCK C ,BYTE J; 
CTX_P1 = .CTX + CTXS$K_BLN; 
! An index record is made for levels 2 and above ( level 0 and 1 are 
i MOTE: bo this now because Latter the Key could get compressed. 
' 
CHSMOVE( .CTX C CTXSW_RDS J,.CTX C CTXSL_RDP J,.CTX_P1 C CTXSL_RDP J ); 
Set the size of the data record 
CTX_P1 C CTX$W_RDS J = .CTX C CTX$W_RDS J; 
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; 1753 1745 


$1984 23:49:35 AX-11 Bliss-32 V4.0-742 Pa 44 
: 198 93:42:08 CONV. SRCICONVFSTLD.B32;1 - (9) 


if : 174 } Set the size of the control record 
f $ iF .CONV$GB_PROL_v3 
f : ase" C CTXSW_RCS J = .CTX C CTX$V_VBN ] + 2 
ree CTX_P1 C CTXSW_RCS J] = .CTX C CTX$V_VBN J] + 3 
r6¢ END; ! CTX_P1 Local 
f BEGIN ! BKT_*_PTR Local 
7 ! Load the record into the bucket... 
7 : First we must set up pointers to where the record will go in the bucket 
7 } These are: 
OCAL 
BKT_CTRL_PTR,  ! Control information 
BKT_DATA_PTR; ! Actual data record 


: The reason we split them up is because prologue 3 files pyt the two pieces 
! in two different places depending on bucket type (ie. INDEX, PRIMARY data 
and SECONDARY data bucket. 
For Prologue 3 files... 
iF .CONV$GB_PROL_Vv3 
THEN 

BEGIN 

} Prologue 3 files... 

IF -KEY_DESC C KEYSV_IDX_COMPR ] 

CONVSSCOMPRESS_INDEX(); 
: If level 1 save the pointers so we can backup Latter 


if .BUCKET C BKTSB_LEVEL } EQLU 1 
THEN 


OOOO O98 NI NIN NINN SININNSIO OOOO 


rtd 


kd kd 
O@oc 
owoeo~ 


SNS NSS SSNS SS SSS 


oO 
— 


EGIN 
SAVE_VBNFS = .BUCKET C BKT$W VBNFS J; 
SAVE“KEYFRESPC = .BUCKET C BRTSW_KEYFRESPC J 


ab ak se Ss 
Say 
oOo Sooo 
es was 


BERLE ERE EEE ERNE EEE ERE EES FAWN 


Be Se Se Fe Oe Ge Se Ge Se Ge Se Be Ge Se Fe Fe Ge Fe Ge Fe Ge Ge Ge Ge Be Fe Ge Ge Ge Ge Ge Ge Se Se Se FH Se Se Se Se Ss Se Ge Be Se Be Ge Se Oe Se Se Se Ge He Setee 
ec a ee ee ee ee ce a ee ee ee ce el ee ee ee a ee ee ee ee ed ee 
a i > > > > > > >> > ee > > > > > > ee 
SOOOOOOO OOO OW 60 09 09 09 09 09 09 09 SI NIN NN SIN NN NINA AAA AAAAAM MIMI 
=O OOO NEW $9 OD NOUS WIN 9 ODNOAUE WN (OOO NA UE WN OVO OVOAUES WOOO 


F444 : Update this pointer first since we go backwards with it 

1801 BUCKET C BKTSW_VBNFS J] = .BUCKET C BKTSW_VBNFS ) - .CTX C CTX$W_RCS J; 
10 ! For the index levels the control bytes are put at the bucket 

Hy vbn freespace. The data bytes are put at the key free space. 

1806 BKT_CTRL_PTR = .BUCKET f BKTS$W_VBNFS ) + .BUCKET + 1; 

1807 BKTDATA_PTR = .BUCKET C BKTSWIKEYFRESPC } + .BUCKET: 

1809 ! Update the rest of the bucket pointers 
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v04 LOAD_INDEX_BUCKET 14-Sep-1984 12:14:00 CONV.SRCICONVFSTLD.B32;1 (9) 
; 1810 1 8 4 : 

3 13} 1805 4 BUCKET C BKTSW_KEYFRESPC ] = .BUCKET [ are ew ] + 

3; 3 \§ 1806 4 -CTX C CTX$W_RDS J 
; 181 1805 4 

> 1814 1806 4 END 

; 1815 180 ELSE 

3 1918 1808 

3; 181 1809 ' For prologue 1 and 2 files... 

; 1818 1810 ! 

; 1819 1811 4 BEGIN 

; 1820 1si¢ 4 

3 i 1 1317 2 If level 1 save the pointers so we can backup latter 

; 1838 1815 ‘ if .BUCKET C BKTS$B_LEVEL J) EQLU 1 

: 1825 i817 4 SAVE _FREESPACE = .BUCKET C BKTSW_FREESPACE J; 

; 1826 1818 4 

3; 1827 1819 4 ! Set some pointers... 

; 1828 1330 4 ! 

3 \S¢? 1821 4 : For prologue 1 and 2 files the control bytes are put at the bucket 
; ts 1oc¢ 2 } freespace. The data bytes are put directly after the control. 
; 183¢ 1824 4 BKT_CTRL_PTR = .BUCKET C BKTSW_FREESPACE ] + .BUCKET;: 

3 bt 136? : BKT_DATA_PTR = .BKT_CTRL_PTR + .CTX C CTX$W_RCS J; 

: tH 1837 ? } Update the bucket pointer (NOTE: Same update for all cases) 

: 1837 1363 4 BUCKET [ BKTSW_FREESPACE ] = .BUCKET C BKTSW_FREESPACE J + 

: 1333 1830 4 -CTX C CTX$SW_RCS ] + 

; 183 1831 4 -CTX C CTX$W_RDS J; 

: 1840 1836 4 

: 1841 1833 3 END; 

3 1966 1834 

3 184 1835 ! Load the record into the bucket... 

3 H 1338 : Move the control bytes into the bucket 

: 1846 1838 3 CHSMOVE( .CTX C CTX$W_RCS ],.CTX C CTXSL_RCP J,.BKT_CTRL_PTR ); 

; H 94 98 : Move the data bytes into the bucket 

; 1850 184 CHSMOVE( .CTX C CTX$W_RDS 3,.CTX C CTXSL_RDP J,.BKT_DATA_PTR ); 

; 1852 1844 END; ! BKT_*_PTR Local 

; 185 136? 

3 Ht 1366 Update the amount of space left in the bucket and the amount used 
: 1856 1848 BEGIN 

3; 1857 1849 

: 1858 1850 LOCAL 

: 1859 1851 SPACE_USED; 

: 1860 1336 

3 HS +8: 1337 SPACE_USED = .CTX C CTX$W_RCS J] + .CTX C CTX$W_RDS J; 

: 1868 1885 CT™X C CTX$SW_SPC J] = .CTX C CTX$SW_SPC J] - .SPACE_USED; 

: 1865 1889 CT™X C CTX$SW_USE J] = .CTX C CTX$W_USE ] + .SPACE_USED; 

3; 1866 1858 
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vow LOAD_INDEX_BUCKET 14- ~Sep-19 4 $3: 214: ‘80 CONV. sre (388 SNVFSYL -B32;1 - (9) 
; 1867 1859 END; 
; 1868 1869 
: } $3 } e Set the index record control bytes and bucket pointer 
; 1871 1 8 CONVSSWRITE_VBN(); 
3; if 1864 
; 187 1865 RETURN 
; 1874 1306 
; 1875 1867 1 END; 


OOFC = BF 0000 LOAD_INDEX BUCKET: 


BB O 
PUSHR #*M<R2,R3,R4,R5,R6,R7> : 
59 04 AA DO 00004 MOVE 4(CTX), BUCKET KET : 
iF 02 AA 91 00008 CMPB so (CTX). #31 : 
OD iF 9900¢ BLSSU.*'1$ ; 
000000006 8F DD O000E PUSHL #CONV$_IDX_LIM > 1642 | 
000000006 00 01 FB 00014 CALLS #1, LIBS TOP : 
50 3A AA 3¢ 90018 1$: MOVZWL 58(CTX), RO + 1662. 
51 8 AA 3C O0001F MOVZ2WL 56(CTX), R1 : | 
50 51 CO 00023 ADDL2 1, RO F 
50 2A sOAA 10 00 ED 00026 CMPZV #0, #16, 42(CTX), RO + 1663) 
44 1F 0002C BLSSU_ 3$ 3 
29 00006 CF €E8 000 ; LBS § CONVSGL_FILL. 2$ > 1666) 
50 e AA 3C 000 MOVZWL 44(CTX)> RO + 1669 
51 8 AA 3C 00037 MOVZWL 56(CTX), R1 ; 
50 51 c0 00038 ADDL2 R1, RO : 
52 3A «AA 3C (O003E MOVZWL S8(CTX), R2 : 1670. 
50 52 C0 0004¢ ADDL2 R2, SPACE_USED_IF_RECORD_ADDED F 
51 18 AB Hs 0004 MOVZWL 24(KEY_DESC), Ri 3: 1671 
52 2C AA 3C 00049 MOVZWL 44(CTXY, R2 3 
51 52 ce 0004D SUBL2 2, R1 : 
52 18 AB 3C 00050 MOVZWL 24(KEY_DESC), R2 : 1673 | 
50 52 C2 00054 SUBL2 2, RO : | 
50 51 D1 00057 CMPL =R1. RO ; | 
16 15 O005A BLEG 3$ : | 
34 00006 CF 9 0005¢ 2$: BLBC CONVSGB PROL_V3, 5$ > 1682 | 
50 AG «AA 9E 00061 MOVAB cTR alt > 1685 | 
51 60 02 0S EF 00065 EXTZV 1. "tty : 1686 | 
51 OD Ad 0 93 FD OO06A CMPZV #3: e host : | 
23 1 999 9 BEQL ; 
SA 5c AA 43 072 3$: MOVAB Smit CTX > 16% 
OA 6A 02 0076 BBS : 1700 
7E 06 AB A OO07A MOVZBL 6(KE bese). -(SP) : 170 
00006 007E BSBW CONTSSCET _BUCKET : 
5E 04 9081 ADDL2 #4, SP : 
FF79 0084 4$ BSBW LOAD INDEX BUCKET : 170 
5A AGS AA aie MOVAB <-92(R10), CTX 3 171 
59 04 AA 00 MOVL 4(CTX), BUCKET : 171 
0006 OBF BSBW CONVSSWRITE BUCKET : 17 
0006 0 é BSBW NVSSINIT BUCKET : 17 
56 CAA 095 5$ MOV (R10), CTX_P1 : 17 
34 Bb 34 BA A AA 2 0099 MOVC (CTX), ener CTX), @52¢CTX_P1) : 174 
3a A A AA BO 000A0 MOVW B(CTX), S8(CTX_P1) : 174 
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Write the data level bucket 
CONVSSWRITE_BUCKET(); 


! If the last data bucket was a continuation bucket then backup one 
index record an put the high key there 


if . CONTINUATION 
THEN 
BACKUP_INDEX(); 
Create the high key index record to finish things off 
CONVSSCREATE_HIGH_KEY(); 


! Write the last index records into the buckets and then write the 
buckets out 


uw 
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Move up to level 1 
CTX = .CTX + CTX$K_BLN; 
Loop until each level is processed 
WHILE .CTX C CTXS$SV_RDY J 
BEGIN 
LOCAL CTX_P1 : REF BLOCK C ,BYTE J; 


} 
i 
| 
| 
! This call to load bucket will finish off this level bucket and create 
1 the index to the next. 
| 
| 
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LOAD_INDEX_BUCKET(); 
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4 s Before we write out the last bucket set some control info. in it 

971 96 BUCKET = .CTX C CTX$L_CURRENT_BUFFER J; 

37% oe BUCKET C BKT$V_LASTBKT ) = _SET; 

974 96 CTX_P1 = .CTX + CTXSK_BLN; | 
975 966 
pA} 30 : If there is mo bucket above this one then this is the root 
978 : IF ( NOT .CTX_P1 C CTX$V_RDY J ) | 
979 970 THEN 
980 971 BEGIN 
981 376 BUCKET C BKTS$V_ROOTBKT J = _SET; 
98¢ 97 KEY_DESC C KEYSB_ROOTLEV ) = .CTx C CTXSB_LEVEL J: 
98 974 KEY"DESC £ KEYSL-ROOTVBN J = .CTX C CTXSL"CURRENT_VBN J; 

984 975 KEY_DESC C KEYSV_INITIDX J = _CLEAR 

eee 376 END; 

389 378 ! Write the last bucket at this level 
988 979 : 
989 980 CONVSSWRITE_BUCKET(); 
990 981 
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BACKUP _INDEX 14-Sep-1984 0 CONV.S 


3; 2013 3 1 2SBTTL ‘BACKUP_INDEX’ 

; 19 2 } ROUT INE BACKUP_INDEX : CLS$JSB_REG_9 NOVALUE = 

; O16 006 1! 

: ; 0 ! Functional Description: 

5 O18 009 Calling Sequence: 

> 2021 11 1 BACKUP_INDEX() 

; 20 ¢ \¢ 1! 

3; 20 1 1 ! Input Parameters: 

3 2024 1461! none 

; 9 3 O18 i Implicit Input 

Py : Im c n : 

; 20 O19 1! . none ae 

; 2028 018 1! 

3; 2029 019 1 ! Output Parameters: 

: 2050 020 1! none 

; 833 9 ! i Implicit Output 

; : im c Hy 

; 20 j 0 ¢ 1! . -— a 

3; 2034 024 1! 

3; 2055 025 1 ! Routine Value: 

3 Ose 026 1! none 

: 203 027 1! 

; 2038 028 1 ! Routines Called: 

3; 2039 2029 1! none 

3; 2040 030 1! 

3; 2061 031 1°! Side Effects: 

3 speg O36 1! 

3 204 035 1! Loads and writes the last buckets in an index. Deallocates memory used 
: 2044 2034 1! for bucket buffers. 

; 2045 2035 1! 

ao gee 

; sock $038 BEGIN 

3 2049 $bzb 

3 2050 040 DEF INE_CTX; 

3; 2051 spel DEF INE_BUCKET; 

; 09¢ O4¢ DEF INE~KEY_DESC; 

3; 205 204 

3 2054 2044 AL 

3: 2055 2045 VBN_SIZE, 

: peo oe8 P1 : REF BLOCK BYTE 1: 

; 32 bee RECORD_CTRL : REF BLOCK C ,BYTE J; 

; 035 04 CTX_P1 = .CTX + CTXS$K_BLN; 

; st 4 BUCKET = .CTX_P1 C CTXSL_CURRENT_BUFFER J; 

; 068 088 ! If the last data bucket was a continuation bucket then we will be backing 
; 2064 054 ! up index record which requires using the vbn in the last record. We 
; 2065 055 : can fake out conv$$write_vbn (called in conv$$create_high_key) by stuffing 
: 066 B28 the vbn in the ctx field. This is ok since it it never réferenced again. 
: 2068 038 i Get the size of the vbn in the old record (in bits) 

; 2069 05 ! 


Comverse VAX=11 CONVERT Pesep-19 4 $3: 47 
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° VBN_SIZE = ( .CTX_P1 C CTX$vV_VBN ) + 2) * 8; 
$6 Backup the pointers in the bucket above and get the vbn in the record 
oes if _.CONVS$GB_PROL_v3 
THE 
Ded BEGIN 
bo8 } For prologue 3 the vbn is at where we are (they go backwards) 
O70 RECORD_CTRL = ,BUCKET C BKTSW_VBNFS ] + .BUCKET + 1; 
O76 CTX C CTXSL_CURRENT_VBN J] = .RECORD_CTRL C 0,0,.VBN_SIZE,0 J; 
074 BUCKET C BKTSW_VBNFS J) = —s VBNF 
079 BUCKET C BKTSW-KEYFRESPC J = . SAVE FRE VERESPC | 
O77 END 
078 ELSE 
4 4 BEGIN 
2081 BUCKET C BKTSW_FREESPACE ] = .SAVE_FREESPACE; 
2088 RECORD_CTRL = .BUCKET C BKTSW_FREESPACE J] + .BUCKET; 
2085 ; CTX C CTXS$L_CURRENT_VBN J] = .RECORD_CTRL C 1,0,.VBN_SIZE,0 ] 
ne 
2089 § RETURN 
2090 
2091 1 END; 


52 DD 00000 BACKUP_INDEX: 
PUSHL  R2 > 2004 
50 5C AA 9E 00002 MOVAB 92(R10), CTX_P1 > 2049 
59 04 ad 00 00006 MOVL 4 (CTX_P1), BOCKET ; 2051 
50 60 02 05 EF OOOOA EXTZv #5, #2, (CTX_P1), RO : 2060 
50 08 C4 OO00F MULL2 #8. VBN SIZE ; | 
50 10 ¢O 90012 ADDL2 #16, VBN_SIZE ; 
26 00006 CF £9 0001 BLBC  § CONV$GB_PROL v3, 1$ + 2064 
2 0000° CF C paola MOVZWL CONVS$GW_VBN FS_PTR, R2 ; 2070 
6249 9F OO01F PUSH (Re) (BUCKET ; | 
51 9E 3C 000 : MOVZWL a(SP)+, R F 
31 01 A941 9E 000 VAB_  1(BUCKET)CR1J, RECORD_CTRL ; 
08 AA 61 0 00 ai 002A EXTZV. #0 yBN SIZE, (RECORD-CTRL), 8<CTX) : 2072. 
6249 9F 99 9 PUSHAB (R2)(B ke > 2074 | 
9E 0000' CF B80 000 MOVW  SAVE_VBNFS, a(SP)+ : | 
04 Ad 0000° cr 80 99 8 nov SAVES ~KEVERESPC 4 (BUCKET) : 2075 
04 Ad 0000' CF g0 0020 1$: MOVW «SAVE FREESPACE 4 (BUCKET) : 208) 
31 04 Ad 3C¢ 0046 MOVZWL 4 (BUCKET) 6 : 2083 | 
1 59 (CO O004A ADDL2 BUCKET’ "RECORD. CTRL ; 


15 

CONVSFSTLD VAX=11 CONVERT 1-52 1984 23:49:35 AX-11 Bliss-32 V4.0-742 Page 54 
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08 AA 01 Al 50 0 EF 940 EXT2v #0 VON.SIZE, T(RECORD_CTRL), 8(CTX) : 2085 

4 BA 54 28: POPR #*M<R2> 3 2091 
5 00056 RSB ; 
; Routine Size: 87 bytes, Routine Base: _CONVSFAST_S + 0718 
5 $108 $038 1 
; 210 095 0 END ELUDOM 
-EXTRN LIB$STOP 

3 PSECT SUMMARY 
: Name Bytes Attributes 
: _CONVSFAST_D 28 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON, PIC,ALIGN(2) 
; _CONVSFAST_S 1903 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
; Library Statistics 
Bo. py. 22 or, ep See votes eae Se eltpcieneaes Symbols -------- Pages Processing 
3 File Total Loaded Percent Mapped Time 
: _$255$0UA28: CSYSLIBILIB.L32;1 18619 56 0 1000 00:01.8 
> 7$255$DUA28: CCONV. SRCJCONVERT.L32;1 165 43 26 17 00:00.2 
; Information: 1 
3; Warnings: 0 
: Errors: 0 
; COMMAND QUALIFIERS 
3 BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE)/LIS=L1S$:CONVFSTLD/OBJ=0BJ$:CCNVFSTLD MSRC$: CONVF STLD/UPDATE=(ENH$: CONVF STLD) 


3; Size: 1903 coge + 28 data bytes 
3; Run Time: 0:43.9 

; Elapsed Time: $33.3 
3 Lines/CPU Min: 863 
3; Lexemes/CPU-Min: 16797 
; aenary Used: 250 pages 
5 3 


; Compilation Complete 
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